|
▼ひげくま さん:
お返事まことにありがとうございます。
再度投稿させていただきます。
>> A B C D E ... R
>> 1/3 1/9 2/9 5/4 10/1
>>ケロッグ 3 5 9
>>マスタ 5
>>ケビン 1 1 1
>>クロノス 5 10 18 20
>>メディチ 3 1 15 1
>見にくいので、書き込み欄の右下にある等幅にチェックを入れて、投稿し直してもらえますか?
>
>> 以下のとおりマクロを組みましたが、下の行へ一向に進みませんでした。
>
>以下が実際に組んだそのままのコードですか?
>
>>sub 帳簿締め()
>>Dim Ws2 as worksheet
>>Range("A2").activate
>>
>>j = j + 1
>>
>> For i = 2 To Ws2.Cells(65536, 1).End(xlUp).Row Step 1
>>
>> Range(Cells(j, 2), Cells(j, 2).End(xlToRight).Offset(0, -1)).Select
>> Selection.Delete xlShiftToLeft
>>
>>Next i
>>
>>end sub
よく見るとiとjを混同しておりました。一行ずつ下がっていきましたが、データが1つしかない人の値も削除されてしまうことに気づきました。この点につきましては、自分でなんとか出来そうです。
もっとうまくやれる方法がありましたら、お教えいただけないでしょうか?
|
|