数据重新排列，并互换位置

一把小刀闯天下

'4行为1个数据块，第3行开始

Option Explicit

Sub 按钮2_单击()
  Dim arr, i, j, m, n, row, t
  row = Cells(Rows.Count, "b").End(xlUp).row
  t = row - 2
  If t Mod 4 > 0 Then row = row + (4 - t Mod 4)
  arr = Range("b3:d" & row)
  ReDim brr(UBound(arr, 1), 1 To 7)
  For i = 1 To UBound(arr, 1) Step 4
    m = m + 1
    brr(m, 1) = arr(i + 1, 3): brr(m, 2) = arr(i + 1, 2): brr(m, 3) = arr(i + 1, 1)
    brr(m, 5) = arr(i + 2, 3): brr(m, 6) = arr(i + 2, 2): brr(m, 7) = arr(i + 2, 1)
  Next
  brr(0, 1) = "三星": brr(0, 2) = "苹果": brr(0, 3) = "小米"
  brr(0, 5) = "三星": brr(0, 6) = "苹果": brr(0, 7) = "小米"
  For i = 1 To m '去除空行
    For j = 1 To UBound(brr, 2)
      If Len(brr(i, j)) Then Exit For
    Next
    If j < UBound(brr, 2) + 1 Then
      n = n + 1
      For j = 1 To UBound(brr, 2): brr(n, j) = brr(i, j): Next
    End If
  Next
  With [h3]
    .Resize(Rows.Count - 2, UBound(brr, 2)) = vbNullString
    If n > 0 Then .Resize(n + 1, UBound(brr, 2)) = brr
  End With
End Sub

lsc900707

jackyava 发表于 2018-8-27 12:32

1. Sub gj23w98()
   
2.     r = ActiveSheet.UsedRange.Rows.Count
   
3.     arr = Range("b3:d" & r)
   
4.     ReDim brr(1 To UBound(arr), 1 To 7)
   
5.     For i = 1 To UBound(arr) Step 4
   
6.         If Len(arr(i + 1, 1)) Then
   
7.             m = m + 1
   
8.             brr(m, 1) = arr(i + 1, 3): brr(m, 2) = arr(i + 1, 2): brr(m, 3) = arr(i + 1, 1)
   
9.             brr(m, 5) = arr(i + 2, 3): brr(m, 6) = arr(i + 2, 2): brr(m, 7) = arr(i + 2, 1)
   
10.         End If
    
11.     Next
    
12.     If m Then
    
13.         Range("h:n").Clear
    
14.         [b3].Resize(, 3).Copy [h3]:  [b3].Resize(, 3).Copy [l3]
    
15.         [h4].Resize(m, 7) = brr
    
16.     End If
    
17. End Sub

复制代码

lsc900707

jackyava 发表于 2018-8-27 12:32

代码需要审核，附件供测试：

jackyava

lsc900707 发表于 2018-8-27 15:44
代码需要审核，附件供测试：

老师，可否看下这个帖子21楼的问题？不需要老师做代码，只需要解释一个地方就行，谢谢
http://club.excelhome.net/forum. ... page%3D1#pid9637063

lsc900707

jackyava 发表于 2018-8-28 21:07
老师，可否看下这个帖子21楼的问题？不需要老师做代码，只需要解释一个地方就行，谢谢
http://club.exce ...

你的数据最大行就在AF,AG,AH列呀，当然也可以AF,AH列。

jackyava

lsc900707 发表于 2018-8-28 21:44
你的数据最大行就在AF,AG,AH列呀，当然也可以AF,AH列。

我把AG改成AM，对代码也没有影响，也不需要改动其他参数，我疑惑就疑惑在这，好像这段代码可有可无似得，还是谢谢老师了