来自不同工作表的数据库

Question

我试图从 Sheet1 的单元格范围 C6:K105 获取所有数据并将其保存到 Sheet14，但我只从单元格范围 C6:C14 获取结果。谁能帮我解决这个VBA代码？谢谢

这是我正在尝试创建的宏 VBA 代码。

Sub Save()

    Set Database = Sheet14.Range("A1:I1")
    Set New_Input = Sheet1.Range("C6:K105")

    Last_Row = Database.Rows.Count + 1
    
    While Database.Cells(Last_Row, 1) <> ""
        Last_Row = Last_Row + 1:
    Wend
    
    For i = 1 To New_Input.Rows.Count
        If New_Input.Cells(i, 1) <> "" Then
            New_Data = New_Input.Cells(i, 1)
            Database.Cells(Last_Row, i) = New_Data
        End If
    Next i

End Sub

Answer 1

Sub Save()

    Set Database = Sheet14.Range("A1:I1")
    Set New_Input = Sheet1.Range("C6:K105")

    Last_Row = Database.Rows.Count + 1
    
    If  Database.Cells(Last_Row, 1) <> "" Then
        Last_Row = Last_Row + 1
    End If
    
    For i = 1 To New_Input.Cells(New_Input.Rows.Count,1).End(xlUp).Row
        If Len(New_Input.Cells(i, 1)) > 0 Then
            New_Data = New_Input.Cells(i, 1)
            Database.Cells(Last_Row, i) = New_Data
            Last_Row = Last_Row + 1
        End If
    Next i

End Sub