VBA 從列（B 到 G）復制和粘貼循環到 A 列的最后一行

Question

我需要您的幫助來創建用於復制循環的 VBA。

我想將 B 列中的一系列數據復制到 A 列的最后一行，然后將下一列 C 復制到 A 列的最后一行。

Answer 1

堆疊列

Option Explicit

Sub stackColumns()
    
    Const sCols As String = "B:G" ' Source Columns
    Const sFirst As Long = 1 ' Source First Row
    Const dCol As String = "A" ' Destination Column
    
    Dim ws As Worksheet: Set ws = ActiveSheet ' adjust here
    
    Dim srg As Range: Set srg = ws.Columns(sCols)
    Dim dCell As Range: Set dCell = ws.Cells(ws.Rows.Count, dCol).End(xlUp)
    If Not IsEmpty(dCell) Then
        Set dCell = dCell.Offset(1)
    End If
    
    Dim crg As Range
    Dim crCount As Long
    Dim j As Long
    For j = 1 To srg.Columns.Count
        With srg.Columns(j)
            crCount = .Cells(.Rows.Count).End(xlUp).Row - sFirst + 1
            Set crg = .Resize(crCount).Offset(sFirst - 1)
        End With
        dCell.Resize(crCount).Value = crg.Value
        Set dCell = dCell.Offset(crCount)
    Next j

End Sub