Question

我试图创建一个VBA宏来搜索＆＃34; Sheet1＆＃34;中的非空白单元格。如果非空白，它将粘贴来自＆＃34; Sheet1＆＃34;的相应活动单元格列。到＆＃34; Sheet2＆＃34;中的同一列。

以下是我的代码，但我确定我做错了，因为代码给我一个错误：1004。

Sub Test()
    Dim cel As Range
    Dim strAddress As String
    Dim StartPoint As Range

    Set StartPoint = ActiveCell
'Change to necessary amount of Rows & Columns
    With Sheets("Sheet1").Range(Cells(9, 5), Cells(1000, 200))
        Set cel = .Find(What:="*", After:=Cells(1000, 200), SearchOrder:=xlByRows, SearchDirection:=xlNext)
        If Not cel Is Nothing Then
            strAddress = cel.Address
            Do
                ' Do something with cel, e.g.
                StartPoint.EntireColumn.Copy Destination:=Worksheets("Sheet2").Range(StartPoint.Column & "1").End(xlToRight).Offset(1)
                Set cel = .FindNext(After:=cel)
                If cel Is Nothing Then Exit Do
            Loop Until cel.Address = strAddress
        End If
    End With
End Sub

有人可以建议我做错了什么吗？谢谢！

Answer 1

尝试以下两项修改：

With Sheets("Sheet1").Range("E9:GR1000")

cel.EntireColumn.Copy Worksheets("Sheet2").Columns(cel.Column)

运行时错误：1004（复制到另一个工作表）

1 个答案: