EXCEL VBA 訂單問題

excel vba 訂單

c1204994 2023-03-13 22:23:06 ‧ 1264 瀏覽

分享至

大家好，請問有大師可以幫忙檢查一下嗎?

空白列=那段黃了, 請問可以怎樣修改嗎? 謝謝好心人

Sub 儲存訂單()

Dim 貨品數量 As Integer, 空白列 As Integer

貨品數量 = WorksheetFunction.CountA(Sheets("訂單").Range("E16:E29"))
空白列 = Sheets("銷售記錄").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row

Sheets("訂單").Range("E16:H16").Resize(貨品數量).Copy
Sheets("銷售記錄").Range("D" & 空白列).PasteSpecial xlPasteValues

Sheets("銷售記錄").Range("A" & 空白列).Resize(貨品數量).Value = Sheets("訂單").Range("H9").Value
Sheets("銷售記錄").Range("B" & 空白列).Resize(貨品數量).Value = Sheets("訂單").Range("H10").Value
Sheets("銷售記錄").Range("C" & 空白列).Resize(貨品數量).Value = Sheets("訂單").Range("D9").Value

Call 重設表格
MsgBox "資料已儲存"

End Sub

淺水員 iT邦大師 6 級 ‧ 2023-03-13 23:40:24 檢舉

雖然我vba不熟
應該不會為了回答特地去查資料
但建議把資料欄位的結構補上
不然幫你看的人還要從程式碼去猜原本的結構
除非剛好很閒，不然很少人願意花這個時間吧

另外貼程式碼可以參考：https://ithelp.ithome.com.tw/markdown#mk_fenced

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

rain_yu

iT邦研究生 5 級 ‧ 2023-03-14 08:25:55

最佳解答

你有空白列的語句有好幾段，我猜你應該是這段
空白列 = Sheets("銷售記錄").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row
找到最後一列返回值可以改成
=>EndRow = Cells(Rows.Count, 1).End(xlUp).Row
如果要返回最後列+1
=>EndRow = Cells(Rows.Count, 1).End(xlUp).Row + 1