如何讓分散的資料集中 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何讓分散的資料集中

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

1^# 跳轉到 »

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

複製代碼

靜思自在 : 閒人無樂趣，忙人無是非。

返回列表下一主題上一主題