麻辣家族討論版版 » Excel程式區 » 自動依照數量遞增序號

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

[發問] 自動依照數量遞增序號

中學生 Rank: 2

帖子: 69
主題: 16
精華: 0
積分: 84
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 20
註冊時間: 2016-3-20
最後登錄: 2024-4-24

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2023-6-21 14:34 | 顯示全部帖子

[發問] 自動依照數量遞增序號

小弟VBA還停留在錄製及修改程式的新手級階段
以下遇到問題無法錄製解決還請前輩指導

如附件

TEST序號1.rar (21.41 KB)

請問要如何使用VBA將M~Q的資料，依序從C6開始，依照機種、數量把"序號-前"依序遞增上去
完成後SHEET2的樣子感謝。

TEST序號.rar (21.21 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 69
主題: 16
精華: 0
積分: 84
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 20
註冊時間: 2016-3-20
最後登錄: 2024-4-24

論壇贊助勳章

2^#

發表於 2023-6-21 17:20 | 顯示全部帖子

回復 2# Andy2483

太感謝前輩了~測試修改目前都可以運用，請問這是怎麼寫的呢，如果有餘裕的話希望可以加上每一行註解，讓我參考學習感謝感謝

中學生 Rank: 2

帖子: 69
主題: 16
精華: 0
積分: 84
點名: 0
作業系統: WIN7
軟體版本: EXCEL2010
閱讀權限: 20
註冊時間: 2016-3-20
最後登錄: 2024-4-24

論壇贊助勳章

3^#

發表於 2023-6-21 17:55 | 顯示全部帖子

有詢問到另一位前輩此方法程式更簡便，可惜序號不會自動跑出，資質駑鈍不知道該如何修改

Sub sdyt()
For k = 3 To 5
For i = 1 To Range("p" & k).Value
Range("a" & i + 5 + r) = i
Range("c" & i + 5 + r) = Range("M" & k).Value
Range("D" & i + 5 + r) = Range("N" & k).Value + Range("a" & i + 5 + r) - 1
Next
r = r + i - 1
Next
End Sub

複製代碼

靜思自在 : 人要知福、惜福、再造福。

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