Question

excel vba 中向某一列第一个空单元格赋值，下面语句哪里出问题了？

Sheet3.Range("G" & [G65536].End(xlUp).Row + 1) = UserForm1.ComboBox1.Text

Answer 1

改成这样试试！

Sheet3.Range("G" & Sheet3.Cells(Rows.Count, "G").End(xlUp).Row + 1) = UserForm1.ComboBox1.Text

追问

非常感谢，我能问一下这是为什么啊？我那个错误出在哪里啊？
另外，从网上找到另一段代码，可是实现不了，但我看着也有道理，想知道为啥，呵呵

Dim G As Range
Set G = Range("G:G").Cells.Find(what:="")
G.Value = UserForm1.ComboBox1.Value

追答

要限定工作表Sheet3！虽然不喜欢以下的写法，不过改成这样你应该更清除哈！

Sheet3.Range("G" & Sheet3.[G65536].End(xlUp).Row + 1) = UserForm1.ComboBox1.Text

Answer 2

试试这个看行不行呢
sheet3.cells(sheet3.[G65536].end(xlup).row+1,7)=UserForm1.ComboBox1.Text

Answer 3

如果上下都有空格就不适用了。