投稿日 | : 2003/07/21(Mon) 20:48 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re^3: スペース区切りで読み込み |
> 丁寧に教えて頂きありがとうございました。
> 参考にさせて頂き頑張りたいと思います。
>
> 実際に実行してみましたが、前のセルが空欄になって
> しまっているんですが、空欄になっているセルを検索
> して次のデータで上書きしていくことは可能でしょうか?
もし、1列目がすべて空欄になっているということなら
.Row = count
.RowSel = count
.Col = 1
.ColSel = .Cols - 1
.Clip = Replace(mytext, " ", vbTab)
の部分を
.Row = count
.RowSel = count
.Col = 0
.ColSel = .Cols - 1
.Clip = Replace(mytext, " ", vbTab)
にしてみてください。
そうではなくてデータにスペースが2つ続いてる場合に詰めて
表示したいのなら
.Clip = Replace(Replace(mytext, " ", " "), " ", vbTab)
としましょう。