返回列表 上一主題 發帖

[發問] 請問一下大神這個語法如何修正有附檔案

[發問] 請問一下大神這個語法如何修正有附檔案

Private Sub B1_Click()
    r = Range("A1").End(xlDown).Row + 1
    Cells(r, "A") = myA.Text
    Cells(r, "B") = myB.Text
    Cells(r, "C") = myC.Text
    Cells(r, "D") = myD.Text
    Cells(r, "E") = myE.Text
    Cells(r, "F") = myF.Text
    Cells(r, "G") = myG.Text
    Cells(r, "H") = myH.Text
    Cells(r, "I") = myI.Text
    Cells(r, "J") = myJ.Text
    Cells(r, "M") = myM.Text
    Cells(r, "N") = myN.Text
    Cells(r, "O") = myO.Text
End Sub
如果A2行有資料就沒問題,但如果A2行無沒資料就會卡在Cells(r, "A") = myA.Text這行,是不是哪裡下錯了呢?煩請指導,謝謝。

建立資料.rar (41.01 KB)

回復 1# spensers
原:
r = Range("A1").End(xlDown).Row + 1

改成底下的試試看:
r = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1

TOP

回復 2# Kubi

感謝大神,問題解決了,太感謝了

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題