請建議如何根據單元格值插入行
uj5u.com熱心網友回復：
作為第一個提示，您可以在 Excel 中激活宏記錄器，然后手動添加一行并轉到 VBA 編輯器以查看已呼叫的函式。然后試著去理解它。實際上，您想要的非常簡單，并且不需要 VBA 編程方面的高級知識，因此最好先嘗試一些東西，然后再讓其他人為您完成所有作業。
uj5u.com熱心網友回復：
Sub test()
Dim Cell As Range
Application.ScreenUpdating = False
Set Cell = Range("B2")
Do While Cell <> ""
If Cell.Value > 1 Then
Range(Cell.Offset(1, 0), Cell.Offset(Cell.Value - 1, 0)).EntireRow.Insert
Range(Cell, Cell.Offset(Cell.Value - 1, 0)).EntireRow.FillDown
End If
Set Cell = Cell.Offset(Cell.Value, 0)
Loop
Application.ScreenUpdating = True
MsgBox "Completed...", vbInformation
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/406284.html
標籤：
上一篇：串列以根據第一個值進行分組