復制-粘貼（重復）-Excel女士-VBA

Question

我是VB編寫代碼的新手。

有人可以幫我編寫VBA代碼，以便在一定條件下將數據從工作表1復制和粘貼到工作表2上。

表格1：要復制的ABC列數據

表格2：

復制的數據僅粘貼在工作表2的A列中

最終輸出為：

粘貼到A1，A2，A3的A1，B1，C1數據粘貼到A4，A5，A6的A1，B1，C1數據

並且條件是，在復制並粘貼所有數據之后，刪除所有空行。

Answer 1

試試這個宏，這個宏將數據從sheet2復制到sheet1，您可以將其反轉

 Option Explicit
    Sub Creasy_copy()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Ro%, Col%, i%, j%, m%
    Dim My_Rg As Range
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")

    Set My_Rg = S2.Range("a1").CurrentRegion
    S1.Range("a1").CurrentRegion.ClearContents
    m = 1
  With My_Rg
    Ro = .Rows.Count
    Col = .Columns.Count
          For i = 1 To Ro
             For j = 1 To Col
                If .Cells(i, j) <> vbNullString Then
                  S1.Cells(m, 1) = .Cells(i, j)
                  m = m + 1
                End If
              Next
          Next
    End With
   End Sub