0

何らかの理由で、フォロー ループは、データをコピーする 2 番目のセルをスキップします。variabel cw は、データが相関する暦週の数値です。X はワークシート ws にすでにあるデータを表し、Y は暦週の前にワークシートに入れられたデータを表します。「C」は、カレンダーの週変数が 2 番目の列にコピーされたときに何が起こるかを表し、「a」はオフセットに使用しているポイントであり、M はカレンダーの週に対応する月を表しますが、まだ行っていませんそのためにマクロの一部を実装します。したがって、何らかの理由で、オフセット変数 "i" を 1 ずつインクリメントしているにもかかわらず、2 行目がスキップされ、残りの C が下にシフトされます。そのセルをスキップする理由と、これを修正できる提案は何ですか? 2 番目のセル以外に、列にスキップされたセルはありません。

r1 = 別のワークシートからコピーする範囲 B7 = 下の図のコピー先の「a」

xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxx
xaxxxxxxxx
mcyyyyyyyy
m yyyyyyyy
mcyyyyyyyy
mcyyyyyyyy
mcyyyyyyyy
mcyyyyyyyy
 c

Dim r As Range
Dim i As Integer
i = 1
Dim er As Range
Dim cw As Integer
cw = 42

For Each r In r1
   Set er = ws.Range("B7").End(xlDown).Offset(i, 0)
   er.Value = cw
   i = i + 1
Next r
4

1 に答える 1

0

私はあなたが初めてだと思います

Set er = ws.Range("B7").End(xlDown).Offset(i, 0)

erでマークされたあなたのセルになりますa

しかし、2 回目の End(xlDown) はc前に作成されたものになります。

正しいコードは次のとおりです。

Dim rngStart As Range
Set rngStart = ws.Range("B7").End(xlDown)

For Each r In r1
   Set er = rngStart.Offset(i, 0)
   er.Value = cw
   i = i + 1
Next r
于 2013-10-25T12:54:35.700 に答える