2009-01-24から1日間の記事一覧
http://q.hatena.ne.jp/1232766401 のb1.xlsがランダムの場合の質問の修正です。 Sub Macro1() Dim lastRow As Long Dim i As Long Dim wb As Worksheet Dim wc As Worksheet Dim r1 As Range Dim r2 As Range Set wb = Workbooks("b1.xls").Worksheets(1) S…
http://q.hatena.ne.jp/1232766401 のb1.xlsがランダムの場合の質問の修正です。 Sub Macro1() Dim lastRow As Long Dim i As Long Dim wb As Worksheet Dim wc As Worksheet Dim r1 As Range Dim r2 As Range Set wb = Workbooks("b1.xls").Worksheets(1) S…