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
¦pªGA2¦æ¦³¸ê®Æ´N¨S°ÝÃD¡A¦ý¦pªGA2¦æµL¨S¸ê®Æ´N·|¥d¦bCells(r, "A") = myA.Text³o¦æ¡A¬O¤£¬Oþ¸Ì¤U¿ù¤F©O¡H·Ð½Ð«ü¾É¡AÁÂÁ¡C |