VBA 批量导入数据并除以10 - Excel表格操作

以下为使用VBA实现将第一个表格的A列导入到第二个表格的B列，并除以10的代码：

Sub TransferData()
    Dim srcSheet As Worksheet
    Dim destSheet As Worksheet
    Dim srcData As Range
    Dim destData As Range
    Dim cell As Range
    
    '获取源表格和目标表格
    Set srcSheet = ThisWorkbook.Worksheets("Sheet1")
    Set destSheet = ThisWorkbook.Worksheets("Sheet2")
    
    '获取源数据和目标数据的范围
    Set srcData = srcSheet.Range("A1:A" & srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row)
    Set destData = destSheet.Range("B1:B" & destSheet.Cells(destSheet.Rows.Count, "B").End(xlUp).Row)
    
    '将源数据除以10并复制到目标数据
    For Each cell In srcData
        destData(destData.Cells.Count + 1, 1).Value = cell.Value / 10
    Next cell
End Sub

使用方法：

1. 将以上代码复制到VBA编辑器中。
2. 在工作簿中打开第一个表格。
3. 按下Alt+F8，选择“TransferData”并点击“运行”。

该代码会将第一个表格的A列数据导入到第二个表格的B列，并将每个数值除以10。