VBA FOR EXCEL 问题请教，ONLINE WAITING - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>DotNet - 窗口里的风景

VBA FOR EXCEL 问题请教，ONLINE WAITING

VBA FOR EXCEL 问题请教，ONLINE WAITING# DotNet - 窗口里的风景

t*n2004-05-17 07:05

1 楼

我想COPY WORKBOOK1(WB1)的很多行到 WORKBOOK2(WB2) 上，请问下面的 CODE 为什么
总有问题, rowD is the row index number. maxrD is the number of rows which will
be copied and pasted. Thank you.
**************************************************************
For rowD=1 to maxrD
wb1.Activesheet.Rows(rowD).Copy
wb2.Activate
ActiveSheet.Cells(rowD+1, 1).Paste
next rowD

r*d2004-05-17 07:05

2 楼

maybe you need to use the method .PasteSpecial

么
will

【在 t*******n 的大作中提到】

: 我想COPY WORKBOOK1(WB1)的很多行到 WORKBOOK2(WB2) 上，请问下面的 CODE 为什么
: 总有问题, rowD is the row index number. maxrD is the number of rows which will
: be copied and pasted. Thank you.
: **************************************************************
: For rowD=1 to maxrD
: wb1.Activesheet.Rows(rowD).Copy
: wb2.Activate
: ActiveSheet.Cells(rowD+1, 1).Paste
: next rowD