excel - 使用 VBA 实现数据馈送自动化

Question

有人可以用逻辑流程指导我吗？我不想要代码，我正在寻找一些指导，然后我可以自己编写代码。

提前致谢

标签： excelvba

Answer 1

尝试

Sub test()
    Dim Ws As Worksheet
    Dim i As Integer
    Set Ws = Sheets(1)
    With Ws
        .Cells.Clear
        For i = 1 To 10
            .Cells(i, i) = "DATA" & i
        Next i
    End With
End Sub
Sub TransData()
    Dim Ws As Worksheet
    Dim toWs As Worksheet
    Dim vDB As Variant, vR() As Variant
    Dim i As Integer, j As Integer
    Dim y As Integer, x As Integer

    Set Ws = Sheets(1)
    Set toWs = Sheets(2)

    vDB = Ws.UsedRange

    r = UBound(vDB, 1)
    c = UBound(vDB, 2)

    ReDim vR(1 To r, 1 To c)
    For i = 1 To r
        For j = 1 To c
            y = r - i + 1
            x = c - j + 1
            vR(y, j) = vDB(y, x)
        Next j
    Next i
    With toWs
        .Range("a1").Resize(r, c) = vR
    End With
End Sub