| |
▼k さん：こんにちは
>Range("H21:H23").Copy
>(ここで21行目はCash Totalの入っている行。Cash Totalの入っている行は毎回違う)というのをコードを使って書こうとしています。
>
> Dim CellCounter As Integer
> For CellCounter = 1 To 3000
> If Cells(CellCounter, 1).Value = "Cash Total" Then Range(Cells(CellCounter, 8):Cells(CellCounter + 3, 8)).Copy
> Next CellCounter
>
>となるのかなと思ったのですが
>Range(Cells(CellCounter, 8):Cells(CellCounter + 3, 8))の部分が間違っているみたいです。どうやって書けばいいのでしょうか。
Range(Cells(CellCounter, 8), Cells(CellCounter + 3, 8)).Copy
となります（ヘルプに出ていたと思いますが）
ループしなくてもMATCH関数を使うと処理も早いと思いますが？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/11/30(水) 15:47 -
