我想要一個宏，通過在單元格 E3 中提供一個值，將 E3 的值復制并粘貼到單元格 K17 中。然后我將修改 E3 中的值以填充單元格 K18，依此類推。
這是我擁有的當前代碼，但當然它限制了我從單元格 E3 添加所需的值以始終粘貼到單元格 K17 中：
Sub box_value()
Range("E3").Select
Selection.Copy
Range("K17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D5:D10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K18").Select
End Sub
excel中的最終結果：
uj5u.com熱心網友回復：
在單獨的列中累積順序計算的值
Sub box_value()
' Find the lowest empty cell in column K and fill it with E3
With Columns("K").Cells
.Item(.Count).End(xlUp).Offset(1) = Range("E3").Value
End With
' Clear a Quantity area
Range("D5:D10").ClearContents
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/479529.html
上一篇：VB-如何初始化字符陣列？