改成这样试试!
Sheet3.Range("G" & Sheet3.Cells(Rows.Count, "G").End(xlUp).Row + 1) = UserForm1.ComboBox1.Text
试试这个看行不行呢sheet3.cells(sheet3.[G65536].end(xlup).row+1,7)=UserForm1.ComboBox1.Text
如果上下都有空格就不适用了。