Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2080 / 76807

←次へ　｜　前へ→


	【80371】ForーNext

トキノハジメ - 19/2/4(月) 18:39 -


	引用なし

	パスワード

いつもお世話になります。

下記のコードをFor－Nextにするにわうどすればよいのでしょうか。

Range("AU12:AU29").Copy
Range("C12:T12").PasteSpecial , Passte:=xlValues, Transpose:=True
Range("AU32:AU49").Copy
Range("C13:T13").PasteSpecial , Passte:=xlValues, Transpose:=True
Range("AU52:AU69").Copy
Range("C14:T14").PasteSpecial , Passte:=xlValues, Transpose:=True
Range("AU72:AU89").Copy
Range("C15:T15").PasteSpecial , Passte:=xlValues, Transpose:=True
Range("AU92:AU109").Copy
Range("C16:T16").PasteSpecial , Passte:=xlValues, Transpose:=True

With Range("BL11")
　　.AutoFilter Field:=1. Criteria1:="8"
　　.AutoFilter Field:=2. Criteria1:="1"
　　.CurrentRegion.Copy Range("BE11")
　　.AutoFilter
End Witu
With Range("BL11")
　　.AutoFilter Field:=1. Criteria1:="8"
　　.AutoFilter Field:=2. Criteria1:="2"
　　.CurrentRegion.Copy Range("BE31")
　　.AutoFilter
End Witu

With Range("BL11")
　　.AutoFilter Field:=1. Criteria1:="8"
　　.AutoFilter Field:=2. Criteria1:="3"
　　.CurrentRegion.Copy Range("BE51")
　　.AutoFilter
End Witu

With Range("BL11")
　　.AutoFilter Field:=1. Criteria1:="8"
　　.AutoFilter Field:=2. Criteria1:="4"
　　.CurrentRegion.Copy Range("BE71")
　　.AutoFilter
End Witu

With Range("BL11")
　　.AutoFilter Field:=1. Criteria1:="8"
　　.AutoFilter Field:=2. Criteria1:="5"
　　.CurrentRegion.Copy Range("BE91")
　　.AutoFilter
End Witu

以上２組ですが、教えて下さい。
宜しくお願い致します。

0 hits

▼

【80371】ForーNext トキノハジメ 19/2/4(月) 18:39