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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-10-5 19:34 | 只看該作者

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

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

081006(test).rar (114.89 KB)

樓主熱帖

aggps

帖子: 4
主題: 0
精華: 0
積分: 51
點名: 0
作業系統: WIN7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-5-9
最後登錄: 2019-10-9

2^#

發表於 2019-10-9 13:42 | 只看該作者

回復 1# oak0723-1

Sub run()
Dim ab1
Dim ab2
Dim run1
ab1 = Sheets("A").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
ab2 = 8
For run1 = 8 To ab1
If Sheets("A").Cells(run1, 1) < 11 Then
Sheets("B").Rows(ab2) = Sheets("A").Rows(run1).Value
ab2 = ab2 + 1
End If
Next
End Sub

複製代碼

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2019-10-9 19:58 | 只看該作者

謝謝aggps老師

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2021-9-5 18:00 | 只看該作者

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

1100905(test).rar (51.13 KB)

quickfixer

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 28
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-10-22

5^#

發表於 2021-9-5 18:28 | 只看該作者

回復 4# oak0723-1

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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2021-9-5 19:36 | 只看該作者

回復 5# quickfixer
謝謝
非常感恩

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

7^#

發表於 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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

8^#

發表於 2021-9-27 20:34 | 只看該作者

回復 7# samwang
非常謝謝