电子表格的复制与粘贴

发布网友发布时间：2022-04-26 01:36

共1个回答

热心网友时间：2022-06-19 14:43

用宏就可以搞定了。Sub Macro1()'' Macro1 Macro'' For i = 1 To 30 src_str = "A" & Trim(Str(i)) & ":D" & Trim(Str(i)) dst_str = "A" & Trim(Str(i * 6 + 1)) & ":D" & Trim(Str(i * 6 + 1)) Debug.Print src_str, dst_str Dim src As Range Dim dst As Range Set src = Sheets("sheet1").Range(src_str) Set dst = Sheets("Sheet2").Range(dst_str) src.Copy dst Next End Sub不知道你的1， 7， 13， 20， ... 300的变化规律是什么，只是按 i * 6 + 1给你写了个宏，自己改吧一下就OK了。

以上回答你满意么？

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com