返回列表 上一主題 發帖

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

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

如何讓分散的資料集中
如附件工作表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

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題