[已解决]求助数据转置

jian82372387

如何将复制值工作表的值转置为数据转置工作表里的值（复制值工作表里面的数据不确定）

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-17 18:14

Sub demo()
   [a1:g1000].ClearContents
   With Sheets(1)
      For i = 1 To .[a1].End(4).Row Step 7
         For j = 1 To .[a1].End(2).Column
            r = r + 1
            Sheets(2).Cells(r, 1).Resize(1, 7) = Application.Transpose(.Cells(i, j).Resize(7, 1))
         Next
      Next
   End With
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   [a1:g1000].ClearContents
   With Sheets(1)
      For i = 1 To .[a1].End(4).Row Step 7
         For j = 1 To .[a1].End(2).Column
            r = r + 1
            Sheets(2).Cells(r, 1).Resize(1, 7) = Application.Transpose(.Cells(i, j).Resize(7, 1))
         Next
      Next
   End With
End Sub

祝順心，南無阿彌陀佛！

jian82372387

cutecpu 发表于 2021-6-17 18:14
Sub demo()
   [a1:g1000].ClearContents
   With Sheets(1)

file:///C:\Users\Adminis\AppData\Roaming\Tencent\Users\434344862\QQ\WinTemp\RichOle\BT_)O7BIGF_{U%QJ2S)HX1D.png试了不行，运行出错

jian82372387

cutecpu 发表于 2021-6-17 18:14
Sub demo()
   [a1:g1000].ClearContents
   With Sheets(1)

试了不行，运行出错

cutecpu

jian82372387 发表于 2021-6-17 18:47
试了不行，运行出错

不知道是出现什么错误呢？
我这边  Excel 2013 运行 ok

jian82372387

cutecpu 发表于 2021-6-17 19:04
不知道是出现什么错误呢？
我这边  Excel 2013 运行 ok

我的时2016版excel

运行时错误‘1004’
应用程序定义或对象定义错误

调试显示下面语句有错
  Sheets(2).Cells(r, 1).Resize(1, 7) = Application.Transpose(.Cells(i, j).Resize(7, 1))

cutecpu

jian82372387 发表于 2021-6-17 19:14
我的时2016版excel

运行时错误‘1004’

[a1:g1000].ClearContents
改成
sheets(2).[a1:g1000].ClearContents

jian82372387

cutecpu 发表于 2021-6-17 19:43
[a1:g1000].ClearContents
改成
sheets(2).[a1:g1000].ClearContents

可以了
我要保留数字前面的0如何修改啊？如01701

cutecpu

jian82372387 发表于 2021-6-17 20:11
可以了
我要保留数字前面的0如何修改啊？如01701

转置工作表裡的 A  ~ G 列 格式先設成文字即可喔！

jian82372387

cutecpu 发表于 2021-6-17 21:40
转置工作表裡的 A  ~ G 列 格式先設成文字即可喔！

刚刚发现了个问题，只转置了A~L列的数据，N~Y列的数据没有转置啊