请教个VB代码，如何此文件sheet1的一列数据填到sheet2的某一列，具体文件请看链接

显示全部楼层 · 2021-1-27 05:16:41

链接：https://pan.baidu.com/s/1oJmv9GIae-8jBElQS_Gm8g
提取码：jje8
就是将“抽样信息”工作表中的一部分信息，填入“检验信息”工作表中的某列，并删除原来的信息。自己只能做部分，所以来请教大佬们
[img][/img]

分 -->

千问 · 2021-1-27 05:16:41

见附件。
https://pan.baidu.com/s/1pNu57bVcWsT_lHwqlgGi6w
提取码u0tg

千问 · 2021-1-27 05:16:41

下载不了，发我邮箱吧。[email protected]

千问 · 2021-1-27 05:16:41

PrivateSubCmdBtn_Fill_Click()
DimrngLastRowAsRange
Dimarr
Dimi
i=UsedRange.Rows.Count
'写入数组
arr=Range("B3:B"&i)
Range("B3:B"&i).ClearContents
Worksheets("检验信息").Range("A2").Resize(i-2,1)=arr
EndSub