2010-01-24から1日間の記事一覧
Function getCellArray(COL As String) As Variant Dim ary(50) As Variant Dim ite As Integer For ite = 0 To Worksheets("SheetName").Cells(Rows.count, COL).End(xlUp).row ary(ite) = Worksheets("SheetName").Range(COL & ite + 1).Value Next ite ge…