我是這個網站的新用戶，但經常來這里尋找我的 Excel 問題的解決方案。首先，感謝回答問題的人提供給我的資訊。我注冊希望能在我面臨的特定挑戰中獲得同樣的幫助。
在我附加的 excel 表格中，頂部的表格顯示了我擁有資料庫的當前格式，我正在嘗試撰寫一個腳本將其更改為底部的格式。
我有代碼（我在這個網站上找到的），它采用 E 列中的值并在該數量下插入行。但是，我很難弄清楚如何將原始列 A:E 復制到新插入的行，以及如何將 F 到 L 中的資料庫值重新配置到新行。
有沒有人可以幫助我解決這個問題？我將不勝感激！
謝謝你。
克里斯
這是論壇幫助我找到基于列 E 插入行的代碼。它有效，但現在我被卡住了。
Sub Insert_SB()
Dim lngCounter As Long
For lngCounter = Range("E" & Rows.count).End(xlUp).row To 2 Step -1
With Cells(lngCounter, "E")
If IsNumeric(.Value) And .Value > 1 Then
With .Offset(1, 0).Resize(.Value - 1, 1)
.EntireRow.Insert
End With
If IsNumeric(.Value) And .Value = 0 Then Exit For
End If
End With
Next lngCounter
End Sub
uj5u.com熱心網友回復：
您可以通過使用 Excel Power Query（選單資料，“獲取和轉換”）在沒有 VBA 的情況下實作此目的。在 Power Query 中，您只需選擇要取消透視的列，然后選擇取消透視列。這將完成這項作業。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/532747.html
標籤：擅长vba数据库
上一篇：如何在case陳述句中定義范圍？