在Excel中，如何將行數據重複指定次數？

如圖，如何將左側方框中的數據，自動填充成右側那樣？

即A-C列文本按D列數據量填充到H列。

謝謝各位大神~

很簡單，幾步就搞定了

方法一：排序+填充

Step 1：在E2單元輸入公式：

=E1+D2-1


Step 2：選定E2單元格，拖動填充柄往下填充，直到公式計算結果為零為止。

Step 3：選定E2:A12，別奇怪，就是E2:A12，即：先選定E2，然後拖動滑鼠往左下，直到選定E2：A12單元格區域，選定後E2是活動單元格。然後點擊「數據」選項卡下的升序按鈕。

【小技巧】：

之所以選定E2:A12，是為了偷懶：為了選定後讓E2單元格是活動單元格，這樣排序時就會自動以E列為關鍵字排序。可以節省二步操作。

如果選定A2：E12單元格區域，點擊升序按鈕會以A列文具排序。這樣的話，還得點擊「數據」選項卡下的排序按鈕，按下圖一樣設置E列為排序關鍵字。這樣要多操作一步，

這是關於活動單元格的一個操作技巧，活動單元格還有更多的操作技巧，可以關注微信公眾號「Excel偷懶的技術」或者關注我的專欄學習：

沒想到活動單元格還有這麼多技巧，來看看你知道幾個？

當然，由於插入的輔助列和原數據是相鄰的，直接選中輔助列中的任一單元格，點擊升序按鈕，Excel也會自動擴展到A列排序。

Step4：排序後效果如下圖：

Step 5：選定A2：D12，按F5功能鍵，在彈出的定位窗口，點擊「定位條件」，然後雙擊定位條件窗口的「空值」選項。

【小技巧】：

直接雙擊「空值」選項就是了，不用點擊」空值「，然後點擊「確定」。這樣又可偷懶，節省一步。

Step 6：定位為空值後，不要點擊滑鼠，直接輸入公式：

=A3

輸入完，不要敲回車鍵，而是按住Ctrl後敲回車

Step 7：輸完後，效果如下圖，然後先定A列到D列，將其選擇性粘貼為數值就是了。

之所以能自動填充，是因為公式使用了相對引用，A2單元格等於A3，A3等於A4，A5等於A6，其他依次類推。

這就是使用單元格相對引用的妙處。

如果還需要將D列相同的內容合併為一個單元格，可以使用分類匯總或透視表構造出一列相同的合併單元格，然後用格式刷將其新用於D列就是了。這個在《「偷懶」的技術：打造財務Excel達人》第二章第二節有案例。

方法二：使用Power Query

另外，如果你用的是2016版，還可以使用Power Query(獲取和轉換）功能來插入重複指定的行。有空了我在微信公眾號「Excel偷懶的技術」寫一篇文章介紹一下。歡迎關注。

如果想學到更多實用的偷懶小技巧，提高工作效率，可以購買我寫的《「偷懶」的技術：打造財務Excel達人》學習。

《偷懶的技術》穩居噹噹辦公類暢銷榜前五名，好評率99.7%，你值得擁有。

《「偷懶」的技術：打造財務Excel達人（有趣、有料，財務總監助你「菜鳥」變「達人」！中國十大優秀CFO向志鵬作序力薦，五位上市公司財務總監、暢銷書作者秋葉傾情推薦）》(羅惠民)【簡介_書評_在線閱讀】 - 噹噹圖書

公式我感覺比較難實現，或者會比較複雜，但是VBA可以簡單解決，你可以用這個模板做個工具，做好之後導出xslx文檔即可。

代碼：

Sub GetInLine()
Dim rng As Range
Dim i As Long
For Each rng In Range("A2", Range("A10000").End(3))
For i = 1 To rng.Offset(0, 3).Value
rng.Resize(1, 3).Copy Range("H100000").End(3).Offset(1, 0)
Next i
Next
MsgBox "Completed"
End Sub


簡易方法1：

在隨便哪個空格子里輸入=rept(a2,100)，然後你就得到了100個筆記本筆記本筆記本……

把這100個連續的筆記本粘貼到word，用替換功能，把「筆記本」替換成「筆記本^p」，就會變成每行一個筆記本，重複100行。

再把這100行筆記本粘貼回excel就行了。

其他列的單元格，利用自動填充雙擊就可以了。

簡易方法2：

在F2填入公式=rept(A2"製表位"b2"製表位"c2"換行符",d2)

下拉公式填充F2至F6

把這幾個格子複製到word里，粘貼為純文本

把製表位三個字替換成^t，把換行符替換成^p，把^p^p替換成^p(消除空行)

全選複製word里的內容

粘貼到excel裡面

哇啦~~

公式法：

公示法效果如圖

為了公式能正常運行且不會嵌套的太長，我加了幾列。

H列公式（H2）：=VLOOKUP(L2,A$2:B$6,2,FALSE)

I列公式（I2）：=VLOOKUP(H2,B$2:D$6,2,FALSE)

J列公式（J2）：=VLOOKUP(H2,B$2:D$6,3,FALSE)

K列公式（K2）：=COUNTIF(H$2:H2,H2)

L列公式（L3）：=IF(K2&

L2單元格手動填個數字1，其餘用L列公式