Got it, let's adjust your VBA code to write horizontally across row 2 of Sheet2 instead of appending vertically in column A. Here's the modified version with key explanations:

Modified Code #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅在Sheet1的B2单元格变更时触发
    If Target.Address = "$B$2" Then
        ' 关闭事件触发，避免写入Sheet2时递归触发Worksheet_Change
        Application.EnableEvents = False
        
        Dim nextCol As Long
        ' 定位Sheet2第2行最后一个有内容的列
        nextCol = Sheets("Sheet2").Cells(2, Columns.Count).End(xlToLeft).Column
        
        ' 处理第2行完全为空的情况（从A2开始写入）
        If nextCol = 1 And Sheets("Sheet2").Cells(2, 1).Value = "" Then
            nextCol = 1
        Else
            nextCol = nextCol + 1
        End If
        
        ' 将Sheet1的B2值写入Sheet2第2行的下一个空白列
        Sheets("Sheet2").Cells(2, nextCol).Value = Sheets("Sheet1").Range("B2").Value
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键修改说明 #

• 从纵向行定位改为横向列定位：把原代码中找A列最后一行的逻辑，替换为找Sheet2第2行最后一个有内容的列，用Cells(2, Columns.Count).End(xlToLeft).Column实现
• 增加空行处理逻辑：如果Sheet2第2行完全为空，会直接从A2开始写入，避免错误地跳到B2
• 防止递归事件触发：写入Sheet2前关闭事件触发，避免修改Sheet2单元格时再次触发Worksheet_Change，防止无限循环或异常行为
• 提升代码可读性：把原变量a重命名为nextCol，让代码意图更清晰

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