2012-02-14から1日間の記事一覧
Sub url_set() oColumn = Selection.Column oRow = Selection.Row owidth = Selection.Columns.Count ohight = Selection.Rows.CountFor i = 0 To owidth - 1 For j = 0 To ohight - 1 setdata = Cells(j + oRow, i + oColumn) If setdata <> "" Then Cells(…