摘要：
Sub Macro1()'C列Dim strC As String'D列Dim strD As String'找出的行数Dim intCount As IntegerintCount = 0'外层循环For i = 2 To 120 strC = "C" + Trim(Str(i)) For j = 2 To 800 strD = "D" + Trim(Str(j)) If Trim(Range(strC)) = Trim(Range(strD)) Then intCount = intCount + 1 Range(st 阅读全文