![]() ![]() Columns(lc + 3).Resize(, UBound(o, 2)).AutoFitīefore you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension. ReDim o(1 To UBound(a, 2), 1 To UBound(a, 1)) Cells.Find("*",, xlValues, xlWhole, xlB圜olumns, xlPrevious, False).Column Cells.Find("*",, xlValues, xlWhole, xlByRows, xlPrevious, False).Row ![]() ![]() Dim lr As Long, lc As Long, c As Long, t As String ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |