excel中在A列中由上往下选择第一个空单元格，用VB怎么写？

Dim i As Integer
Sheets("sheet1").Select
i = 1
Do Until Cells(i, 1).Value = ""
i = i + 1
Loop
i = i - 1
Sheets(2).Cells(1, 1).Value = Sheets(1).Cells(i, 1) '下面的那些用这句就可以，选中的select就不写了。
' Cells(i, 1).Copy
' Sheets("sheet2").Select
' Sheets("sheet2").Range("A1").Select
' ActiveSheet.Paste

a未赋值，未赋值时值为0，(1,0)单元格无效，错误显示在Do Until IsEmpty(Cells(i, a))行。

在使用前给a赋值应该就可以了。
希望对你有用。

用2到3行代码就够了：
Dim R As Integer
R = Sheets("sheet1").Range("A1").End(4).Row
Sheets("sheet2").Range("A1") = Sheets("sheet1").Range("A" & R)

把你的上述代码中的Cells(i, a)改成Cells(i, 1)看看。