Excel中，如何用vba解决如下问题

发布网友发布时间：2022-04-21 10:18

共2个回答

热心网友时间：2023-07-23 02:30

我可以为您提供有关使用 VBA 将表一的信息录入表二的指导如下：

使用 VBA 将表一的信息录入表二的基本方法如下所示：

1. 打开 Excel，然后打开表一和表二。
2. 在表二中创建与表一相同的列名。
3. 启用 VBA 编辑器，为代码创建一个新的模块。
4. 在代码模块中，使用“for”或“while”循环遍历表一所有行。
5. 对于每个行，将特定数据复制到表二中创建的相应列中。
6. 编写完成后，执行 VBA 代码即可将表一的信息录入表二。

这里提供一段 VBA 代码供您参考：

Sub copyDataToTable2()

Dim x As Long
Dim lastRow As Long

lastRow = Sheets("表一").Range("A" & Rows.Count).End(xlUp).Row

For x = 2 To lastRow

Sheets("表二").Cells(x, 1) = Sheets("表一").Cells(x, 1)
Sheets("表二").Cells(x, 2) = Sheets("表一").Cells(x, 2)
'...依次将表一中的所有数据复制到表二中创建的相应列中

Next x

End Sub

这段代码可以将表一的第一列和第二列数据复制到表二中，您可以根据需要修改。

希望以上指导可以帮到您。

热心网友时间：2023-07-23 02:30

1、可以先利用宏录制来自动生成代码，然后再进行修改。操作方法如下：第一步，打开一个excel应用，新建一个白空表格，并录入数据。

2、第二步，点击excel应用程序窗口状态栏中左侧的“宏录制”按钮。

3、第三步，然后在表1中，选中左上角第一个有数据的单元格。

4、第四步，接着按下CTRL+SHIFT键，再分别先后按下方向右键、方向下键，选中表1中全部数据。

5、第五步，再接着按下ctrl+C复制选中数据，切换到表2中，在要保存数据的行的第一个单元中点击一下，再ctrl+V粘贴。

6、第六步，再次点下 excel应用程序状态栏左侧的宏录制按钮，停止宏录制。

7、第七步，按下组全键：ALT+F11，打开vba编辑窗口，展开模块，双击打开模块1，在右侧就可以看到刚录制的宏代码了，这个代码基本就能解决前面提出的问题了。