Question

我已经搜索了数小时的搜索，试图找到问题的答案。

这似乎是一项非常简单的任务，因为我希望从sheet1中剪切数据并粘贴到工作表2.我成功完成了这项工作，但数据必须保留在相同的位置。

导入数据，每次我想要剪切的位置都会发生变化。

我基本上需要在A列中搜索单词“Summary”（唯一一个总是在同一列中的单词），当发现时我想将“Summary”行和下面的所有内容切换到G列，直到空单元格（此数据始终位于底部，但行数会有所不同）

需要将剪切数据粘贴到sheet2列A行A中。

我希望有人有类似的东西，我可以根据自己的需要量身定做。

由于

Answer 1

这应该给你一个开始：

Sub summary()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim N As Long, i As Long, r1 As Range, r2 As Range

    Set sh1 = Sheets("Sheet1")
    Set sh2 = Sheets("Sheet2")
    Set r2 = sh2.Range("A1")

    With sh1
        N = .Cells(Rows.Count, "A").End(xlUp).Row
        For i = 1 To N
            If .Cells(i, "A").Value = "Summary" Then
                Set r1 = Range(.Cells(i, "A"), .Cells(N, "G"))
                r1.Copy r2
            End If
        Next i
    End With
End Sub

根据VBA中找到的单元格值剪切粘贴数据

1 个答案: