VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/07/21(Mon) 20:48 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: スペース区切りで読み込み |
> 丁寧に教えて頂きありがとうございました。
> 参考にさせて頂き頑張りたいと思います。
>
> 実際に実行してみましたが、前のセルが空欄になって
> しまっているんですが、空欄になっているセルを検索
> して次のデータで上書きしていくことは可能でしょうか？
もし、１列目がすべて空欄になっているということなら
.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)
にしてみてください。
そうではなくてデータにスペースが２つ続いてる場合に詰めて
表示したいのなら
.Clip = Replace(Replace(mytext, " ", " "), " ", vbTab)
としましょう。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）