请问VBA可以把数据复制到另一个工作表吗？

gzminge

1.在新建 XLSX 工作表 (2)中的Sheet2，把A32:V46复制；
2.延时等待2秒钟；


3.在新建 XLSX 工作表中的Sheet2，先左键点击AG列中含有999的第一个单元格，然后执行数值粘贴。





新建 XLSX 工作表.zip (26.95 KB, 下载次数: 1)

2024-8-3 15:33 上传

点击文件名下载附件

新建 XLSX 工作表 (2).zip (9.7 KB, 下载次数: 1)

2024-8-3 15:33 上传

点击文件名下载附件

gzminge

有些操作看似简单，频繁手动就会出错

ykcbf1100

不懂。首先，你那不是二个工作表，是二个工作簿；其次，二个工作簿之间复制粘贴也不用等待啊。

ykcbf1100

用数组很简单的。

gzminge

ykcbf1100 发表于 2024-8-3 18:10
用数组很简单的。

能示范一下，谢谢大哥！

ykcbf1100

gzminge 发表于 2024-8-3 19:21
能示范一下，谢谢大哥！

代码在xlsm文件中，附件供参考。

数据文件你自己选择，这样更通用。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024..8.3
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("Sheet2")
   
4.     With Application.FileDialog(msoFileDialogFilePicker)
   
5.         .InitialFileName = ThisWorkbook.Path
   
6.         .Title = "请选择对应Excel文件"
   
7.         .AllowMultiSelect = False
   
8.         .Filters.Clear
   
9.         .Filters.Add "Excel文件", "*.xls*"
   
10.         If .Show Then f = .SelectedItems(1) Else Exit Sub
    
11.     End With
    
12.     Set wb = Workbooks.Open(f, 0)
    
13.     With wb.Sheets("Sheet2")
    
14.         arr = .[A32:V46]
    
15.         wb.Close False
    
16.     End With
    
17.     With sh
    
18.         Set Rng = .Columns("AG:AG").Find(999)
    
19.         r = Rng.Row: c = Rng.Column
    
20.         .Cells(r, c).Resize(UBound(arr), UBound(arr, 2)) = arr
    
21.     End With
    
22.     Application.ScreenUpdating = True
    
23.     MsgBox "OK！"
    
24. End Sub
    

复制代码

gzminge

ykcbf1100 发表于 2024-8-3 19:37
参与一下。。。

选择好对应Excel文件之后，就没有反应了，本来打开的数据文件，也被关闭

ykcbf1100

gzminge 发表于 2024-8-3 21:07
选择好对应Excel文件之后，就没有反应了，本来打开的数据文件，也被关闭

什么叫没有反应了，你要什么反应啊?数据文件把数据写入数组后肯定要关闭的。数据最后是复制到999的单元格区域了，你没看吗？

ykcbf1100

gzminge 发表于 2024-8-3 21:07
选择好对应Excel文件之后，就没有反应了，本来打开的数据文件，也被关闭

你居然都不看结果啊。你自己想要什么你自己不清楚吗？直接去看结果啊。