[發問] 如何讓分散的資料集中

oak0723-1

如何讓分散的資料集中
如附件工作表A的資料..是分散的資料的數量和位置(指所在的列數)都不是固定
希望按"整理"鍵
就能讓資料集中在工作表B(如檔案所示範例)

aggps

回復 1# oak0723-1

1. Sub run()
   
2. Dim ab1
   
3. Dim ab2
   
4. Dim run1
   
5.   ab1 = Sheets("A").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
   
6.   ab2 = 8
   
7.   
   
8.   For run1 = 8 To ab1
   
9.   If Sheets("A").Cells(run1, 1) < 11 Then
   
10.      Sheets("B").Rows(ab2) = Sheets("A").Rows(run1).Value
    
11.      ab2 = ab2 + 1
    
12.   End If
    
13.   Next
    
14.   
    
15. End Sub

複製代碼

oak0723-1

謝謝aggps老師

oak0723-1

分散的資料還是無法集中
如附件工作表A的資料..是分散的資料
按"整理"鍵
在工作表B資料並無法集中(如檔案所示範例)

quickfixer

回復 4# oak0723-1


     If Sheets("A").Cells(run1, 1) <> "" Then

oak0723-1

回復 5# quickfixer
謝謝
非常感恩

samwang

回復 4# oak0723-1

請測試看看，謝謝

Sub test()
With Range("a7:jm" & Range("a65536").End(3).Row)
   .AutoFilter 1, "<>" & ""
   .SpecialCells(xlCellTypeVisible).Copy Sheets("B").[A7]
   .AutoFilter
End With
End Sub

oak0723-1

回復 7# samwang
非常謝謝