かなり至急です＞＜エクセル2010のマクロの質問です。
2つ質問があります。
1つ目です。
以下の一連の作業を1つのマクロで行いたいのですが、どうしたらいいでしょうか？
現在は、シート1にデータがあります。
(1)選択した3列を、B~D列に移動する
(2)B列に含まれるセルのうち、0（空白）でないセル数分だけシートを追加する。
(たとえば、シート1のB14~B18に数字がはいっていたら、シートを5枚追加するという感じです。)
(3)B列に含まれるセルのうち、0（空白）でないセル数分に対し、2行ずつ各シートの3・4行目にコピーする。
(たとえば、シート1のB14~B18に数字がはいっていたら、シート2の3・4行にシート1の14・15行のコピーを貼り付け、シート3の3・4行にシート1の15・16行のコピーを貼り付け、シート4の3・4行にシート1の16・17行のコピーの貼り付ける・・・という感じです。)
現在は
(1)Sub ()
Selection.Cut
ActiveCell.Columns("A:C").EntireColumn.Select
Selection.Cut
Columns("B:B").EntireColumn.Select
Selection.Insert Shift:=xlToRight
End Sub
(2)
Sub Macro()
Dim n As Long
For n = 14 To 18 '
Sheets.Add
Next
End Sub
(3)
Sub Macro()
Dim n As Long
For n = 14 To 18 '
Sheets("Sheet1").Rows(n & ":" & n + 1).Copy _
Sheets("Sheet" & n - 252).Range("A3")
Next
End Sub
と別々のマクロに分けてます。
また(2)(3)でみられる
For n = 14 To 18 '
の部分の数字は手動でいれてますが、かなり時間をくってしまうので・・・。
2つ目です。
複数ブックに同じ動作をするエクセルのマクロが知りたいです。
現在100ほどブック(Book1~100)を開いていて、100のブックすべてのSheet1のA1のセルに「１」と入れたいのですが、
そのようなマクロはどうくんだらよろしいでしょうか。
ちなみにExcel2007です。
困っているので、お願いします。
↧