VBAなんでも質問スレ Part3 (137ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

7(2): デフォルトの名無しさん [] 2021/10/20(水)22:37 ID:mCILNp7G(1/2)
超初心者です
すみません、他スレでもきいたのですが

以下の対応をさせたいです
?シートを支店分だけ増やす
?シート名をそれぞれ「支店一覧」A2〜A18の支店名にする
?作成したシートのB5に支店名を入れる
?作成したシートの表のA列が"0"になっている行を削除する
?作成したシートのオートフィルタを解除する

以下のものではエラーになりますが、どこが悪いのでしょうか

Sub シート作成
Dim 支店名 As Range
For Each 名前 In Worksheets("支店一覧").Range("A2：A18")
Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = 支店名.Value
.Range("B5") = 支店名.Value
End With
　 Range("B3").AutoFilter 1, "0"
With Range("B3").CurrentRegion.Offset(1, 0)
.Resize(.Rows.Count - 1).EntireRow.Delete
　　Range("B3").AutoFilter
End With
Next 支店名

---

8: デフォルトの名無しさん [] 2021/10/20(水)22:49 ID:mCILNp7G(2/2)
?作成したシートの表のB列が"0"になっている行を削除する
の誤りです

コードの3行目は
For Each 支店名 In Worksheets("支店一覧").Range("A2：A18")
の誤りです

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.009s