注：文章内容来源于网络，真实性有待确认，请自行甄别。
请教：如何用VBA把数据从一个表复制到另一个表中？请问：想用VB
发表于：2024-10-24 00:00:00浏览：6次
问题描述：请问：想用A把EXCEL数据从别的表中复制到另张表中，不知如何实现,请指教，多谢。
1表示还有两个问题以后再请教。请不要用字典法。
其实你提出的这个问题，用就可以解决。涉及跨表存取数据，打开表执行查找后再关闭，程序的运行效率不高。
下面的代码实际就是用函数执行查找，然后处理成数值，感觉可能要快一点。
引用各科成绩的数据原理和引用考场号是一样的，只要修改代码中公式的内容就好了，
Sub 从登分表中导入考场座号数据()
Application.ScreenUpdating = False
Dim wstTemp As Worksheet, intRow%
For Each wstTemp In ActiveWorkbook.Worksheets
With wstTemp
intRow = .[A65536].End(xlUp).Row
If wstTemp.Name Like "*文*" Then
.Range("G3:G" & intRow).FormulaR1C1 = "=VLOOKUP(RC[-6],[文登分表.xls]文科登分表!C1:C5,4,0)"
.Range("H3:H" & intRow).FormulaR1C1 = "=VLOOKUP(RC[-7],[文登分表.xls]文科登分表!C1:C5,5,0)"
.Range("G3:H" & intRow).Copy
.Range("G3:H" & intRow).PasteSpecial xlPasteValues, xlNone, False, False
ElseIf wstTemp.Name Like "*理*" Then
.Range("G3:G" & intRow).FormulaR1C1 = "=VLOOKUP(RC[-6],[理登分表.xls]理科登分表!C1:C5,4,0)"
.Range("H3:H" & intRow).FormulaR1C1 = "=VLOOKUP(RC[-7],[理登分表.xls]理科登分表!C1:C5,5,0)"
.Range("G3:H" & intRow).Copy
.Range("G3:H" & intRow).PasteSpecial xlPasteValues, xlNone, False, False
End If
End With
Next
Application.ScreenUpdating = True
End Sub
Sub 清除考场座号数据()
Application.ScreenUpdating = False
Dim wstTemp As Worksheet, intRow%
For Each wstTemp In ActiveWorkbook.Worksheets
With wstTemp
If wstTemp.Name Like "*文*" Or wstTemp.Name Like "*理*" Then
intRow = .[A65536].End(xlUp).Row
.Range("G3:H" & intRow).ClearContents
End If
End With
Next
Application.ScreenUpdating = True
End Sub
猜你喜欢
- ppt在插入图片时出现无法插入的问题在插入时，图片文件夹打开后，
- 在插入时，文件夹打开后，出现图片文件不能正常显示，选定一个图片文件后就出现PowerPoint 停止工作较长时间，进而自动退出的现象，不知如何解决。
- EXCEL中如何打印字体颜色，却不打印单元格背景色？为了视觉上的
- 为了上的直观，我在电子表格中，对某些单元格使用了不同的背景色，但这些背景色只能在电子表格中被看见，而不能打印出来。 要解决这个问题很简单，只需要在页面设置中选择“单色打印”即可。 现在，我需要对一些文字改变颜色，并且需要打印出颜色来。如果启用了“单色打印”就不能将字体的颜色打印出来了。 甚至有的时候，在同一个单元格内，其背景色不需要打印出来，而文字的颜色则需要被打印出来。 请问，如何解决这个矛...
栏目分类全部>
推荐文章
- ppt在插入图片时出现无法插入的问题在插入时，图片文件夹打开后，
- excel表格中，怎么才能让项目永远保持在最上面，无论下来页面都?
- 为什么复制到word里的同样字体和大小的文字颜色会深浅不一？为什
- 网页在复制后经过word编辑时，发现里面有许多下箭头标记，请问怎?
- EXCEL中如何打印字体颜色，却不打印单元格背景色？为了视觉上的
- 怎样使IF函数返回的值自动添加颜色?在使用EXCEL函数的时候,
- 请问.WORD里面打印时如何设置成隔页打印的模式啊?就是只打第一?
- 把word中的带横杠的数字复制到excel中，为何变成了日期？使
- S上面加一横请问在Word里如何在英文字母S的上面加一横？除了用
- EXCEL单表格里想打多行可以吗单格里有没有类似于文档“回车键”