excel vba 求助

来源：百度知道 编辑：UC知道 时间：2024/06/30 03:03:02
在一个EXCEL中有三个表:sheet1,sheet2,sheet3,让sheet1中A列加上sheet2中A列结果写到sheet3中的VBA代码（我只是学习代码用，高手帮帮忙！~）

for i =1 to n

worsheets("sheet3").cells(i,"A")=worksheets("sheet1").cells(i,"A")+worksheets("sheet2").cells(i,"A")

next i

没有分？

楼上的可以。
如果是字符拼串。

i = 1
While Worksheets("Sheet1").Cells(i, "A") <> ""
Worksheets("Sheet3").Cells(i, "A") = Worksheets("Sheet1").Cells(i, "A") & Worksheets("Sheet2").Cells(i, "A")
i = i + 1
Wend