返回列表 上一主題 發帖

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

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

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

081006(test).rar (114.89 KB)

回復 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
複製代碼

TOP

謝謝aggps老師

TOP

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

1100905(test).rar (51.13 KB)

TOP

回復 4# oak0723-1


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

TOP

回復 5# quickfixer
謝謝
非常感恩

TOP

回復 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

TOP

回復 7# samwang
非常謝謝

TOP

        靜思自在 : 閒人無樂趣,忙人無是非。
返回列表 上一主題