2011-06-07から1日間の記事一覧
Public Sub test() Dim i As Long Dim WrkRow As Long Dim WrkCol As Long Dim WrkRange As Variant With Sheets("SyainMST") WrkRow = .Cells(Rows.Count, 1).End(xlUp).Row WrkCol = .Cells(1, Columns.Count).End(xlToLeft).Column WrkRange = .Range("A1…