求助个公式或宏代码谢谢，重复机械化输入很痛苦

hongqiwu

求助个公式或宏代码谢谢，重复机械化输入很痛苦

hongqiwu

有人帮看看吗

hzruziniu

1. Private Sub CommandButton1_Click()
   
2.     r = Range("f65535").End(3).Row
   
3.     For i = 1 To r
   
4.         n = (i - 1) * 4 + 1
   
5.         For j = 2 To 5
   
6.             Cells(n + 1, j) = Cells(i, j + 4)
   
7.         Next
   
8.     Next
   
9. End Sub

复制代码

hzruziniu

求助公式或宏代码谢谢.rar (17.47 KB, 下载次数: 8)

2018-10-3 15:33 上传

点击文件名下载附件

lsc900707

hongqiwu 发表于 2018-10-3 15:23
有人帮看看吗

1. Sub gj23w98()
   
2.     Dim brr(1 To 99999, 1 To 4)
   
3.     arr = Range("f1:i" & Cells(Rows.Count, 6).End(3).Row)
   
4.     m = -3
   
5.     For i = 1 To UBound(arr)
   
6.         m = m + 4
   
7.         For j = 1 To 4
   
8.             brr(m, j) = arr(i, j)
   
9.         Next
   
10.     Next
    
11.     [b2].Resize(m, 4) = brr
    
12. End Sub

复制代码

hongqiwu

hzruziniu 发表于 2018-10-3 15:34

完美，我竟然也看懂了。。。筒明谢谢