Excel VBA實現(xiàn)按名稱循環(huán)出現(xiàn)特定次數(shù)

Excel VBA實現(xiàn)按名稱循環(huán)出現(xiàn)特定次數(shù)

我們常常遇到這樣的問題：

把一些名稱重復(fù)輸入個N行，N是特定的，比如說。結(jié)果大概這樣：

為什么我們要做這樣的事情呢。其實這樣的應(yīng)用場景很多，比如說促銷活動選品，不同類目名稱要有不同的個數(shù)。類目屬性調(diào)整，不同類目也是不同的屬性項，也就有了不同的次數(shù)。不同行業(yè)也有各自不同的場景。

以往基本上就是手動來做，很辛苦。名稱越多，越辛苦。

現(xiàn)在如果會VBA就能用VBA來實現(xiàn)自動化，當(dāng)然學(xué)好VBA，不是一天兩天的事情。

下面就來分享我的代碼，首先感謝一起學(xué)習(xí)VBA的朋友的幫助，我就差那1句代碼。但這句卻是最難想到的。

全部代碼如下：

Alt+F11，進(jìn)入VBE編輯器，插入模塊，放入代碼：

Public Sub chongf()’名稱N次重復(fù)

Dim m as integer，i as integer，k as integer

m = 3 ‘賦值

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row’到非空最末

msgtr = Range("b" & i) ‘區(qū)域賦值變量比直接賦值更易懂

For k = 1 To msgtr

Range("d" & m – 1) = Cells(i, 1)

m = m + 1 ‘讓m產(chǎn)生變化是代碼重點，我就缺這句。

Next

Next

End Sub

最后就能實現(xiàn)效果：

我最早缺少那句時，我能寫出for 雙循環(huán)，但是我無法實現(xiàn)輸出的數(shù)據(jù)每次下移一個單元格。原來構(gòu)造一個每次加1單元格的變量就行了。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。