如何用EXCEL的宏命令 连续粘贴多个单元格数据到对应单元格
发布网友
发布时间：2022-04-24 04:16
共1个回答
热心网友
时间：2023-10-27 06:37
Macro2()
'循环起始行
iStart
=
5
'循环结束行
iEnd
=
7
'将BOOK1中SHEET1
H5起每隔1行中的数据（H5,H6,H7.....）
粘贴到BOOK1中
SHEET1
B5起每隔12单元格中
For
i
=
iStart
To
iEnd
strText
=
Range("H"
&
i)
j
=
5
+
12
*
(i
-
5)
Range("B"
&
j)
=
strText
Next
'H5起每隔1行中的数据（H5,H6,H7.....）
粘贴到BOOK1中
SHEET1
B5和C5合并后的每隔12单元格
For
i
=
iStart
To
iEnd
strText
=
Range("H"
&
i)
j
=
5
+
12
*
(i
-
5)
Range("B"
&
j
&
":C"
&
j).Merge
Range("B"
&
j
&
":C"
&
j)
=
strText
Next
End
Sub
