191问答库 > 求段VBA 点击按钮将一个表格1的某些列的数据自动加载到另一个表格2里，谢谢！

求段VBA 点击按钮将一个表格1的某些列的数据自动加载到另一个表格2里，谢谢！

2025-03-04 11:47:36

推荐回答（1个）

回答1：

sub m()
for i= 23 to range("A65536").end(3).row
if cells(i,"D")="" or cells(i,"G")="" then
exit for
else
Sheets(2).cells(i-19,"A")=cells(i,"A")

Sheets(2).cells(i-19,"B")=cells(i,"B")
Sheets(2).cells(i-19,"C")=cells(i,"C")
Sheets(2).cells(i-19,"E")=cells(i,"E")
Sheets(2).cells(i-19,"F")=cells(i,"F")
end if
next
end sub
将代码放到sheet1中，执行即可

求段VBA 点击按钮 将一个表格1的某些列的数据自动加载到另一个表格2里， 谢谢！

求段VBA 点击按钮将一个表格1的某些列的数据自动加载到另一个表格2里，谢谢！