[已解决]255425

蜀西

45255555555555555

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-5-13 20:51

蜀西 发表于 2021-5-13 19:38
大哥，你再试试，好像可以哦。。我这边能下载，能解压，能打开啊！

Sub demo()
   With Sheets("AAA")
      a = .Range("a3:bd" & .UsedRange.Rows.Count)
   End With
   For i = 1 To UBound(a)
      For j = 1 To 50
         If a(i, j) Then a(i, j) = a(i, 52 + (j - 1) \ 10)
      Next
   Next
   Sheets("BBB").Range("a3").Resize(UBound(a), 50) = a
End Sub


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

您好，附件好像有問題喔！

蜀西

cutecpu 发表于 2021-5-13 19:37
您好，附件好像有問題喔！

大哥，你再试试，好像可以哦。。我这边能下载，能解压，能打开啊！

cutecpu

蜀西 发表于 2021-5-13 19:38
大哥，你再试试，好像可以哦。。我这边能下载，能解压，能打开啊！

Sub demo()
   With Sheets("AAA")
      a = .Range("a3:bd" & .UsedRange.Rows.Count)
   End With
   For i = 1 To UBound(a)
      For j = 1 To 50
         If a(i, j) Then a(i, j) = a(i, 52 + (j - 1) \ 10)
      Next
   Next
   Sheets("BBB").Range("a3").Resize(UBound(a), 50) = a
End Sub


祝順心，南無阿彌陀佛！