如何写入选中单元格旁边的Excel单元格？

Sub WriteNextToSelectedCell()
    Dim selectedCell As Range
    Dim adjacentCell As Range
    
    ' 获取选中的单元格
    Set selectedCell = Selection
    
    ' 获取选中单元格旁边的单元格
    Set adjacentCell = selectedCell.Offset(0, 1)
    
    ' 在旁边的单元格中写入内容
    adjacentCell.Value = "Hello, World!"
End Sub