|
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 |
|