[已解决]EXCEL中，A BCD列自动跳至成A1.A2,A3,A4行

陶紫妖妖

EXCEL中，A BCD列自动跳至成A1.A2,A3,A4行

最佳答案

月排行榜 / 总排行榜

dsmch

2015-8-10 22:13

1. Sub Macro1()
   
2. s = 3
   
3. For i = 3 To Range("iv1").End(xlToLeft).Column
   
4.     [a1:a3].Copy Cells(s + 1, 1)
   
5.     Cells(1, i).Resize(3, 1).Cut
   
6.     ActiveSheet.Paste Cells(s + 1, 2)
   
7.     s = s + 3
   
8. Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. s = 3
   
3. For i = 3 To Range("iv1").End(xlToLeft).Column
   
4.     [a1:a3].Copy Cells(s + 1, 1)
   
5.     Cells(1, i).Resize(3, 1).Cut
   
6.     ActiveSheet.Paste Cells(s + 1, 2)
   
7.     s = s + 3
   
8. Next
   
9. End Sub

复制代码

陶紫妖妖

dsmch 发表于 2015-8-10 22:13

偶看不懂，呜呜

陶紫妖妖

dsmch 发表于 2015-8-10 22:13

求助大虾，

爱疯

请勿重复发帖，建议上传excel文件

dsmch

点击按钮…………

陶紫妖妖

偶传不了我的EXCEL表呀，级数未到呀

陶紫妖妖

帮帮忙