Question

EXCEL VBA读取内容

1.C:I列倒一

Answer 1

Sub s()
    Dim rg(3 To 6) As Range
    Set rg(3) = [k1]
    Set rg(4) = [m5]
    Set rg(5) = [o2]
    Set rg(6) = [q7]
    n = Cells(Rows.Count, 3).End(3).Row
    For i = 3 To 6
        x = n - 1
        y = i + 1
        t = Cells(x, y).Text
        Do
            x = x - 1
            y = y + 1
            If y > 9 Then Exit Do
        Loop Until Cells(x, y).Text <> t
        rg(i) = t & Cells(x, y).Text
    Next
End Sub