复制 - 粘贴（迭代） - Excel 女士 - VBA

Question

我是用 VB 编写代码的新手。

有人可以帮我编写一个 VBA 代码，在某些条件下将数据从表 1 复制并粘贴到表 2。

表 1： 要复制的 A B C 列数据

表 2：

复制的数据将单独粘贴到工作表 2 的 A 列中

最终输出为：

A1、B1、C1数据要粘贴到A1、A2、A3 A2, B2, C2 数据粘贴到 A4, A5, A6 以此类推

还有一个条件是，在复制粘贴所有数据后，删除所有空行。

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