| |
▼氷室 さん：
>そこで、
>空白行ができるとカウントし、
>2行になったら終わる様にしようと考えたのですが
>そうすると、Sheet1の図で★1の部分で終了してしまいます。
>希望としては★2の部分までコピーしたいです。
>
>途中の空白行はそのままシート2にもコピーします。
>
>コードは以下です。
>単純に空白だったらカウントしているだけなので
>★1でループから抜けてしまうと思うのですが、
>cntNAME >= 1だと、1行空白があるだけで抜けるので
>現状と変わりません。
>
>連続する2つの行が空白だった場合に処理を終了する。
>という作りにしたいのでどなたかよろしくお願いします。
>
>（コード）
>-----------------
>dim cntNAME as integer
>
>Do While Not cntNAME >= 2
> If Sheet1.Cells(intRow, 3) = "" Then '空白かどうかチェック。
> cntNAME = cntNAME + 1 '空白であればカウント。
Else
cntNAME = 0
> End If
> ★コピーする処理。（1行ずつコピー）
>Loop
>-----------------
で良いのでは？
|
|
ハチ
- 06/9/22(金) 15:16 -
