VBA练习

oyzjo

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