如何使固定列号改为按第四行的最后一个空格的列号赋值？

无为123456

如何使固定列号改为按第四行的最后一个空格的列号赋值？

  .[f4].Resize(UBound(ar)) = ar

请版主或大家费心帮忙，谢谢！！！



Private Sub CommandButton1_Click()
    Dim d As Object, i%, myname$, ar
    Set d = CreateObject("scripting.dictionary")
    myname = ThisWorkbook.Path & "\工资.xls"
    Application.ScreenUpdating = False
    With GetObject(myname)
        With .Sheets("工资")
            ar = .Range("a4", .[r65536].End(3))
        End With
        .Close
    End With
    For i = 1 To UBound(ar)
        d(ar(i, 4)) = ar(i, 18)
    Next
    With Sheets("员工名册")
        ar = .Range("c4", .[c65536].End(3))
        For i = 1 To UBound(ar)
            ar(i, 1) = d(ar(i, 1))
        Next
        .[f4].Resize(UBound(ar)) = ar
    End With
    Application.ScreenUpdating = True
End Sub

橘子红

  .[f4].Resize(UBound(ar)) = ar  改成

  .Cells(4, Columns.Count).End(xlToLeft).Resize(UBound(ar)) = ar

无为123456

不知为何运行不行

橘子红

.cells(4,Cells(4, Columns.Count).End(xlToLeft).column).Resize(UBound(ar)) = ar   这样呢

无为123456

不知为何附件无法上传

无为123456

附件详  http://www.excelpx.com/thread-374308-1-1.html

无为123456

从第四行向下随身份证号输入工资，但输入的列随着月份而变化。

先谢谢版主

无为123456

为何按第四行有数值的最后一个空格（如员工名册表的D、E、F、G等列按月份）无法录入。请版主或大家费心帮忙，谢谢！！！