col=Sheets("工作表1").range("c1")
countrange=Sheets("工作表2").range("a1:c9")
把这两个替换进去即可
color1=countcolor(sheets("工作表1").range("c1"),sheets("工作表2").range("a1:c9"))
color1 = Countcolor(sheets("工作表1").[c1], sheets("工作表2").[A1:C9])
col=Worksheets("工作表1名").Range("C1")
countrange=Worksheets("工作表2名")r.Range("A1:C9")