我想將資料插入到表格的最后一行。但它是在 4 行之后做的。這是我的代碼：
' ------ FR020 -----
'Variable pour trouver la dernière ligne
Dim DernLigne As Long
DernLigne = Range("A1:Q1").End(xlUp).Row
' Insérer valeur FR020 en A
Range("A1" & DernLigne).Value = "FR020"
' Insérer valeur 03700 en D
Range("D1" & DernLigne).Value = "03700"
'Insérer valeur 59800019FR en E
Range("E1" & DernLigne).Value = "59800019FR"
這里的表：
uj5u.com熱心網友回復：
您需要xlUp從作業表的最后一行開始Range("A" & Rows.Count)
任何你需要改變Range("A1" & DernLigne)成Range("A" & DernLigne)
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row 1 'remove the 1 to overwrite the last data row
' Insérer valeur FR020 en A
Range("A" & DernLigne).Value = "FR020"
' Insérer valeur 03700 en D
Range("D" & DernLigne).Value = "03700"
'Insérer valeur 59800019FR en E
Range("E" & DernLigne).Value = "59800019FR"
問題是Range("A1:Q1").End(xlUp).Row導致行1
并將其Range("A1" & DernLigne)附加1到A1它的后面Range("A11")。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/354002.html
上一篇：查找資料集的均值/平均值
下一篇：使用vba提取xml資訊