将数据从一个表添加到工作表作为值

Question

我的 Excel 表格有问题。 我在“订单计算”表上有一个智能表，我想将此数据移动到“销售历史”表

下面的代码：

Option Explicit

Sub UpdateLogWorksheet()

    Dim historyWks As Worksheet
    Dim inputWks As Worksheet

    Dim nextRow As Long
    Dim oCol As Long

    Dim myRng As Range
    Dim myCopy As String
    Dim myCell As Range
    
    'cells to copy from Input sheet - some contain formulas
     myCopy = ActiveSheet.ListObjects("Table1").DataBodyRange.Select

    Set inputWks = Worksheets("Order calculation")
    Set historyWks = Worksheets("Sales History")

    With historyWks
        nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
    End With

   

    With historyWks
        With .Cells(nextRow, "A")
            .Value = Now
            .NumberFormat = "mm/dd/yyyy hh:mm:ss"
        End With
        
        
        With inputWks
        Set myRng = .Range(myCopy)

        If Application.CountA(myRng) <> myRng.Cells.Count Then
            MsgBox "Please fill in all the cells!"
            Exit Sub
        End If
    End With
    
    
    
        .Cells(nextRow, "B").Value = Application.UserName
        oCol = 3
        For Each myCell In myRng.Cells
            historyWks.Cells(nextRow, oCol).Value = myCell.Value
            oCol = oCol + 1
        Next myCell
    End With
    
    'clear input cells that contain constants
    With inputWks
      On Error Resume Next
         With .Range(myCopy).Cells.SpecialCells(xlCellTypeConstants)
              .ClearContents
              Application.GoTo .Cells(1) ', Scroll:=True
         End With
      On Error GoTo 0
    End With
End Sub

Answer 1

如果您只需要将一张纸复制到另一张纸上，您可以使用 Range 对象的 .Copy 函数。

Sheets("Order calculation").Range("A1:AZ1000").Copy Destination:=Sheets("Sales History").Range("A1")

您只需要决定要复制源工作表的哪个部分 (A1:AZ1000) 以及要将其复制到目标工作表 (A1) 上的哪个位置。