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這行，是不是哪裡下錯了呢？煩請指導，謝謝。 |
發表於 2018-4-14 11:09
| 
