| |
迅速な返答に心から感謝します。
>Ｂ列やＣ列の場合は、どこへコピーするの？
>それ以降の列の場合は？
>
> Ａ列(シートＡ) → Ｃ列(シートＢ)の８行目開始の８行飛び
> Ｂ列(シートＡ) → ？
> Ｃ列(シートＡ) → ？
具体的には、下記のようにしたいです。
Ａ列(シートＡ) → Ｃ列(シートＢ)の８行目開始の８行飛び
Ｂ列(シートＡ) → Ｃ列(シートＢ)の11行目開始の８行飛び
Ｃ列(シートＡ) → Ｄ列(シートＢ)の11行目開始の８行飛び
ｖさんのマクロを元に下のように自分でやってみたのですが、
------------------------------------------------------
Sub MacroVさん()
Dim i As Long
Dim wsOrigin As Worksheet
Dim wsTarget As Worksheet
Dim rng As Range
Set wsOrigin = ActiveWorkbook.Worksheets("元ﾃﾞｰﾀ")
Set wsTarget = ActiveWorkbook.Worksheets("冊子")
For Each rng In wsOrigin.Range("A4:A10")
rng.Copy wsTarget.Range("C" & i + 8)
i = i + 8
For Each rng In wsOrigin.Range("B4:B10")
rng.Copy wsTarget.Range("C" & j + 8)
j = j + 11
For Each rng In wsOrigin.Range("C4:C10")
rng.Copy wsTarget.Range("D" & k + 8)
k = k + 11
Next
End Sub
-----------------------------------------------------
２行目以降の「For Each rng In」で引っかかってしまいました。
恥ずかしながら「For Each rng In」の意味も分かっていないので、
検索して調べてみます。
丁寧な対応を毎回ありがとうございます。
|
|
kool
- 08/4/4(金) 16:05 -
