1.使用 VLOOKUP 函数,从一个表格的数据中提取值并将其作为数值输入到另一个表格中。示例代码如下:
Sub VLOOKUP_Data() Dim LookUpValue As Range, LookUpTable As Range, ReturnValue As Integer Set LookUpValue = Sheets("Sheet1").Range("A1") '要查找的值 Set LookUpTable = Sheets("Sheet2").Range("A1:B10") '要搜索的表格 ReturnValue = Application.WorksheetFunction.VLookup(LookUpValue, LookUpTable, 2, False) '返回第二列的数值 Sheets("Sheet1").Range("B1") = ReturnValue '将数值插入 Sheet1 的 B1 单元格中 End Sub
2.将一个表格的数据作为值复制到另一个表格中,使用以下代码:
Sub Copy_Table() Dim CopyFrom As Range, CopyTo As Range Set CopyFrom = Sheets("Sheet1").Range("A1:D10") '要复制的区域 Set CopyTo = Sheets("Sheet2").Range("A1") '要粘贴到的区域 CopyFrom.Copy CopyTo.PasteSpecial xlPasteValues '将数据作为值粘贴 End Sub