|
Keinさん ISKさん ご指導ありがとうございました。
両方ともちゃんと動作しました。
ほんとに感謝感謝です。
▼ISK さん:
>▼初心者です さん:
>>よろしくお願いします。
>>
>>-------------------------------------
>>A B C
>>¥ 1000
>>$ 2000
>>¥ 1000
>>$ 2000
>>-------------------------------------
>>
>>この表の$を下のように右斜め上に移動させたいのですが、
>>
>>-------------------------------------
>>A B C
>>¥ 1000 2000
>>
>>¥ 1000 2000
>>-------------------------------------
>>はじめのデータはA3のセルにあります。
>>データの数は下に200〜300あります。
>>
>> Range("A3").Select
>> Selection.Copy
>> Application.CutCopyMode = False
>> Selection.Cut
>> ActiveCell.Offset(-1, 1).Select
>> ActiveSheet.Paste
>>
>>上のマクロをFor Nextでデータの終わりまで処理するにはどうしたらいいのでしょうか?参考書を色々読んだのですが、分かりませんでした。
>>よろしくお願いします。
>
>
>作業の流れを明快に示しました。
>参考までに試してみてください。
>
>Private Sub CommandButton1_Click()
>With Sheet1
> 'データの個数を調べます。
> TTLDATA = Application.WorksheetFunction.CountA(.Range("A3:A1000")) + 2
>
> For i = 3 To TTLDATA
> TG = .Range("A" & i).Value
> If TG = "$" Then
> '該当するデータを右上に移動させます。
> .Range("C" & i - 1).Value = .Range("B" & i).Value
> '移動後に元のデータを消去します。
> .Range("A" & i & ":B" & i).Value = ""
> End If
> Next
>End With
>End Sub
|
|