設定したシートに対して一括で処理したい

Question

配列に格納されたそれぞれの値のシート名に対して操作したい

エラー番号438、
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
というエラー内容が出てしまいます。

配列に格納した値は取れていると思うのですが、配列に格納したシート名ごとに処理がしたいのですが、コードで誤っている箇所などご指摘いただきたいです。

Sub 集計()
   Dim Shihanki() As Variant
   Shihanki() = Range("B1:B4")
   
Call calc(Shihanki)

End Sub


Function calc(Shihanki)
	With Sheets(Array(Sheet(1, 1),Sheet(2, 1), Sheet(3, 1), Sheet(4, 1)))
        .Columns("A:G").copy
        .Columns("H:H").PasteSpecial	
End Function

Comments

[y_waiwai]

エラーメッセージは変な省略翻訳しないで、出てきたそのまんまをコピペで提示しましょう

[suukun]

すみません。
エラー内容は下記です。
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

Answer 1

こんな感じでしょうか

Function calc(Shihanki)
    Sheets(Array(Shihanki(1, 1), Shihanki(2, 1), Shihanki(3, 1), Shihanki(4, 1))).Select
        Columns("A:G").Copy
        Columns("H:H").PasteSpecial
End Function

ファンクションで挟むだけですが、当方では問題なく指定のシートすべてで反映されました。
再度ご確認ください。

Comments

[suukun]

ありがとうございます。
確認したところ4月のシートに対しては処理されていたのですが他の月の処理は繰り返し構文を使ったりするしかないでしょうか？

[suukun]

ありがとうございます。
ファンクションで挟むというのはどういったことでしょうか？

[radames1000]

最初にFunction calc(Shihanki)を書いてなかったので書きましたよ、というだけなので
深い意味はありません。ややこしくてごめんなさい。

Answer 2

これではダメですか？

Function calc(Shihanki)
    Dim sh
    For Each sh in Shihanki
       Sheets(sh).Columns("A:G").Copy Sheets(sh).Columns("H:H")
    Next
End Function

Comments

[suukun]

ありがとうございます。
それぞれの各月ごとに処理を分ける必要性もある為できれば配列の要素を指定しての方がありがたいです。
調べたところ作業グループという方法も見つかったのですが。

[jinoji]

For Eachループの中で、If文なりなんなりすればよいのでは。
やりたいことが複雑なら、なおのこと作業グループは不向きな気がしますけど。