使用Offset与TextBox.Value在两列间输入数据的技术问询

我懂你现在的痛点——用ActiveCell.Offset的时候，总是被当前选中的单元格位置牵着走，还容易不小心跳过空行，没法精准从A列的目标位置开始写入内容。咱们先拆解问题，再给出针对性的解决方案。

问题分析 #

你当前的代码里定义了rng = Range("A2:A2")但没实际用到，反而依赖ActiveCell.Offset，这就会导致两个问题：

• 如果用户没选中A列的对应行，内容会写到错误的位置；
• 要是A列存在空行，ActiveCell可能落在空行上，导致内容被写到空行右侧，跳过了实际需要填充的位置。

解决方案1：固定写入A2的右侧单元格（B2） #

如果你的需求是始终把内容写到A2对应的B列位置，完全不用依赖ActiveCell，直接定位目标单元格就行：

Private Sub CommandButton1_Click()
    ' 处理空输入的提示逻辑
    If TextBox1.Value = "" Then
        If MsgBox("Form is not complete. Do you want to continue?", vbQuestion + vbYesNo) <> vbYes Then
            Exit Sub
        End If
    End If
    
    ' 直接写入A2的右侧（B2），两种写法都可行
    Range("A2").Offset(0, 1).Value = TextBox1.Value
    ' 或者更直白的写法：Range("B2").Value = TextBox1.Value
End Sub

解决方案2：写入A列最后一行数据的右侧（不跳过空行） #

如果你的需求是每次把内容写到A列最后一个有数据的行的右侧（比如A列最后一行是A5，就写到B5），可以用End(xlUp)精准定位最后一行，彻底避开空行干扰：

Private Sub CommandButton1_Click()
    Dim lastRow As Long
    
    ' 空输入检查逻辑
    If TextBox1.Value = "" Then
        If MsgBox("Form is not complete. Do you want to continue?", vbQuestion + vbYesNo) <> vbYes Then
            Exit Sub
        End If
    End If
    
    ' 找到A列最后一个非空单元格的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 处理A列全空的特殊情况（默认从A2开始写入）
    If lastRow = 1 And Range("A1").Value = "" Then
        lastRow = 2
    End If
    
    ' 写入对应行的B列
    Cells(lastRow, "B").Value = TextBox1.Value
End Sub

关键提示 #

• 尽量避免依赖ActiveCell：它的位置完全由用户当前选中的单元格决定，很容易出现意外错误，直接通过Range或Cells定位目标单元格更可靠；
• Offset(0,1)的核心作用是相对于某个基准单元格向右偏移1列，只要你先确定好基准单元格（比如Range("A2")），就能精准控制写入位置，不用管当前选中的是哪个单元格。

内容的提问来源于stack exchange，提问作者Nicholas Chan