怎么改成定位某列第一个空单元格列？

gaea0

xrow = Range("J1").CurrentRegion.Rows.Count + 1 这个定位的是活动区下一列，请问各位老师怎么改成定位绿色列里空着的第一行呢？比如图片这个，我想从第4行开始输入，应该改成什么代码呢？

gaea0

Option Explicit

Private Sub UserForm_Initialize()
规格.List = Array("精选50g", "精选60g", "精选100g", "精选150g", "精选200g")
End Sub
Private Sub 确定_Click()
'判断信息是否输入完整
    If 品名.Value = "" Or 规格.Value = "" Or 产地.Value = "" Or 原料数量.Value = "" Or 原料编号.Value = "" Or 生产批号.Value = "" Or 生产日期.Value = "" Or 成品数量.Value = "" Then
        MsgBox "信息输入不完整，请重新输入！", vbExclamation, "错误提示"
        Exit Sub                '退出执行程序
    End If
    Dim xrow As Integer
    xrow = Range("J1").CurrentRegion.Rows.Count + 1    '这个我想换成J列最后一个非空行
    '将信息写入第一条空行
    Cells(xrow, "J") = 品名.Value
    Cells(xrow, "M") = 规格.Value
    Cells(xrow, "D") = 产地.Value
    Cells(xrow, "G") = 原料数量.Value
    Cells(xrow, "C") = 原料编号.Value
    Cells(xrow, "K") = 生产批号.Value
    Cells(xrow, "L") = 生产日期.Value
    Cells(xrow, "O") = 成品数量.Value
    '内容写进工作表后，将控件中的内容清除
    品名.Value = ""
    规格.Value = ""
    产地.Value = ""
    原料数量.Value = ""
    原料编号.Value = ""
    生产批号.Value = ""
    生产日期.Value = ""
    成品数量.Value = ""
End Sub

Private Sub 退出_Click()
Unload Me
End Sub
‘附上原代码

syj2004hg

用End属性，xrow = Range("J10000").End(xlUp).Row + 1

gaea0

syj2004hg 发表于 2020-2-13 14:57
用End属性，xrow = Range("J10000").End(xlUp).Row + 1

感谢 学习了