xlToRight的替代方案(不带select/select)

Sub InsertDataToRight()
    Dim ws As Worksheet
    Dim rng As Range
    Dim emptyCol As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名称
    Set rng = ws.Range("A1") ' 替换为你要插入数据的起始单元格
    
    ' 使用Find方法查找空列
    Set emptyCol = ws.Rows(1).Find(What:="", After:=ws.Cells(1, ws.Columns.Count), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
    
    If emptyCol Is Nothing Then
        MsgBox "没有找到空列"
    Else
        ' 将数据插入到空列中
        rng.Copy emptyCol
        MsgBox "数据已插入到" & emptyCol.Address
    End If
End Sub