Excel 查找放置值的单元格旁边的单元格

我将TextBox1的值（在UserForm上）插入到工作表a列底部的第一个空单元格（“Info”）

我正在尝试修改此代码，以便TextBox2中的值进入添加TextBox1的单元格旁边的B列中的单元格

我不能使用相同的公式，因为A列中的所有单元格都有值，而B列中相应的单元格可能为空

公共函数FindNextEmpty（ByVal rCell作为范围）作为范围
关于错误转到错误句柄
和瑞塞尔
如果Len（.Formula）=0，则
设置FindNextEmpty=rCell
ElseIf Len（.Offset（1，0）。公式）=0
设置FindNextEmpty=.Offset（1，0）
其他的
设置FindNextEmpty=.End（xlDown）.Offset（1,0）
如果结束
以
退出功能
错误句柄：
MsgBox Err.Description&“，函数FindNextEmpty。”
端函数
私有子命令按钮2_单击（）
变暗rCell As范围
设置rCell=FindNextEmpty（thishworkbook.Sheets（“Info”）.Range（“A1”））
rCell.Value=TextBox1.Value
Set rCell=无
端接头

添加

rCell.Offset(0, 1) = TextBox2.Value

之后

把我带到了我需要的地方

rCell.Value = TextBox1.Value