1. 程式人生 > >excel 獲取最後一列的列名

excel 獲取最後一列的列名

Sub Macro1()

Set myrng = Range("A1").CurrentRegion

Dim aa As String

For i = 2 To 101

    For j = 5 To myrng.Columns.Count

        If myrng.Cells(i, j).Text <> "" Then

            aa = myrng.Cells(1, j).Value

        End If

    Next

    myrng.Cells(i, 3).Value = aa

Next

End Sub