| |
>どのように変更したらよいですか？
>かき込みしてくださったのを何処にいれるのですか？
変更とかどこに入れるとかでなく、全部入れ替えになります。
（手抜きで省略してますが）
間違いがありましたので、変更してください。
For ii = 1 To Cells(i, 256).End(xlToRight).Column
↓
For ii = 1 To Cells(i, 256).End(xlToLeft).Column
Forを使ったときのポイントは、これら↓が解らないと厳しいです。
>For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
> For ii = 1 To Cells(i, 256).End(xlToRight).Column
Ａ列１番下の行から、上に向かって、最初に見つかった空白で無いセルの行
Cells(Rows.Count, 1).End(xlUp).Row
i行２５６列から、左に向かって最初に見つかった空白でない列
For ii = 1 To Cells(i, 256).End(xlToLeft).Column
セルA65536を選択した状態で、Ctrl + ↑ を押したのと同じです。
セルIV1（行は変動してますが）を選択した状態で、Ctrl + ← を押したのと同じです。
|
|
Jaka
- 07/4/12(木) 13:09 -
