求助一个代码

ryoryo66

我想把从K列开始,不为空的最后一行,不为空的列 这个范围(表中的当前范围是K6:AH6)
按照每三格为一组转置粘贴到 K7开始的下面,并且选中.(不要n这个单元格)

想要的结果就在另一个工作表里.
请老师看看这个代码应该怎么写啊?

sub麻辣君

Sub test()
   Dim i%, j%, arr(), m%, n%
   m = Range("k1").CurrentRegion.Columns.Count
   n = Int(m / 4)
   ReDim arr(1 To n)
   For i = 11 To m + 10 Step 4
      j = j + 1
      arr(j) = Cells(1048576, i).End(xlUp).Resize(1, 3)
   Next
   Range("k1048576").End(xlUp).Offset(1, 0).Resize(n, 3) = Application.Transpose(Application.Transpose(arr))
End Sub

选中自己再加一个.select就是了

爱疯

不清楚题意，黄转置到绿，然后呢

ryoryo66

sub麻辣君 发表于 2019-10-15 14:54
Sub test()
   Dim i%, j%, arr(), m%, n%
   m = Range("k1").CurrentRegion.Columns.Count

非常感谢老师
我这个选取还是弄不好.


选取是不是要另写一段?

ryoryo66

爱疯 发表于 2019-10-15 14:54
不清楚题意，黄转置到绿，然后呢

谢谢老师,然后就是把绿色的选中,   用.Select

sub麻辣君

ryoryo66 发表于 2019-10-15 20:49
谢谢老师,然后就是把绿色的选中,   用.Select

Sub test()
   Dim i%, j%, arr(), m%, n%, rng As Range
   m = Range("k1").CurrentRegion.Columns.Count
   n = Int(m / 4)
   ReDim arr(1 To n)
   For i = 11 To m + 10 Step 4
      j = j + 1
      arr(j) = Cells(1048576, i).End(xlUp).Resize(1, 3)
   Next
   Set rng = Range("k1048576").End(xlUp).Offset(1, 0).Resize(n, 3)
   rng = Application.Transpose(Application.Transpose(arr))
   rng.Select
End Sub

ryoryo66

sub麻辣君 发表于 2019-10-16 08:21
Sub test()
   Dim i%, j%, arr(), m%, n%, rng As Range
   m = Range("k1").CurrentRegion.Columns.C ...

非常感谢老师,辛苦了!

ryoryo66

爱疯 发表于 2019-10-15 14:54
不清楚题意，黄转置到绿，然后呢

sub麻辣君 老师已经搞定了.
谢谢老师关注!