2023-02-14 22:26来源:m.sf1369.com作者:宇宇
高级功能,完成一些批量化,自动化的工作。所有的操作都可以用vba完成。vba很强大,可以这样说,日常的操作相当于excel的1%,而vba测相当于99%。
z = [a1].End(4).Row'A列最后一个有效单元格的行数(不是很好,中间不能有空单元格)
sarr = Range(i2, i & z)‘两个单元的数组,
darr = Range(n2, p & z)‘两个单元的数组,
For x = 1 To z - 1’一层循环
For y = 1 To 3‘二层循环
Select Case darr(x, y)’选择语句
Case A
darr(x, y) = sarr(x, 1)
Case B
darr(x, y) = sarr(x, 1)
Case C
darr(x, y) = sarr(x, 1)
End Select
Next‘二层循环
Next’一层循环
Range(n2, p & z) = darr
条件格式就可以了
实在要VBA代码,我以A列为例,且从第2个数字开始(第1个肯定不重复)
Sub a()
For i% = 2 To [a65536].End(3).Row
If WorksheetFunction.CountIf(Range(A1:A & i), Range(A & i)) > 1 Then Rows(i).Interior.ColorIndex = 3
Next
End Sub