標題: [發問] 如何讓分散的資料集中 [打印本頁]

---

作者: oak0723-1    時間: 2019-10-5 19:34     標題: 如何讓分散的資料集中

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

---

作者: aggps    時間: 2019-10-9 13:42

回復 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    時間: 2019-10-9 19:58

謝謝aggps老師

---

作者: oak0723-1    時間: 2021-9-5 18:00

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

---

作者: quickfixer    時間: 2021-9-5 18:28

回復 4# oak0723-1


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

---

作者: oak0723-1    時間: 2021-9-5 19:36

回復 5# quickfixer
謝謝
非常感恩

---

作者: samwang    時間: 2021-9-6 12:36

回復 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    時間: 2021-9-27 20:34

回復 7# samwang
非常謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)