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

spensers

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這行，是不是哪裡下錯了呢？煩請指導，謝謝。

Kubi

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

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

spensers

回復 2# Kubi

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