|
雛形のシート増とシート名設定について
"作業シート" A列に次のようにシート名が書かれていますが、
一部シート名が歯抜けになっている場合(10行目のように)、
"売上実績"(雛形)のシートコピーを増やし、シート名を
それぞれシートタブに表示するコードを作成しました。
(シート名の数は増減します)
これをArrayを使った構文に作成する事が出来ましたら
アドバイスいただけませんでしょうか?
作業シート
A B
5 シート名
6 AAA
7 BBB
8 CCC
9 DDD
10
11 GGG
12 PPP
: :
: :
Sub 売上実績表のコピー()
Dim MyR As Range
Dim R As Range
Set MyR = Range("A6", Cells(Rows.Count, 1).End(xlUp))
For Each R In MyR
If R.Value = "" Then
R.Offset(1).Select
MyR = MyR - 1
End If
On Error Resume Next
If R.Value = "" Then
Sheets("売上実績").Copy Nothing
Else
Sheets("売上実績").Copy after:=ActiveSheet
End If
ActiveSheet.Name = R.Value
Next R
On Error GoTo 0
Worksheets("作業シート").Activate
End Sub
|
|