Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5338 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【51477】データ範囲の指定 Matsushita 07/9/20(木) 16:27 質問[未読]
【51479】Re:データ範囲の指定 Jaka 07/9/20(木) 16:41 発言[未読]
【51480】Re:データ範囲の指定 Jaka 07/9/20(木) 16:54 発言[未読]
【51481】Re:データ範囲の指定 Matsushita 07/9/20(木) 16:57 お礼[未読]
【51477】データ範囲の指定
質問  Matsushita  - 07/9/20(木) 16:27 -
引用なし
パスワード
   こんにちは。
教えてください。
下のような表があったとして、

ABCDEF
1123456
212　3
3 1 2

xllastcellでデータ範囲を選択したものに対して、
Ltrim関数で余計な空白を削除したいのですが、
方法をご教授いただけないでしょうか？

よろしくお願いします。
【51479】Re:データ範囲の指定
発言  Jaka  - 07/9/20(木) 16:41 -
引用なし
パスワード
   ▼Matsushita さん：
>Ltrim関数で余計な空白を削除したいのですが、
ちょっと意味が良く解りません。
Ltrimって、こんなのですよ。

Dim st As String
st = "　 12　3 4 5　"
MsgBox "[" & st & "]" & vbLf & _
　　　 "[" & LTrim(st) & "]"
【51480】Re:データ範囲の指定
発言  Jaka  - 07/9/20(木) 16:54 -
引用なし
パスワード
   もしかしたらこれ？
手作業でやったものをマクロ記録でもしてください。
余計なものの記録されると思いますから、余計なものを削除するなりして編集する。

１、範囲を選択。
２、編集　→　ジャンプ　→　セルの選択
　　空白セルにチェックしてＯＫで閉じる。
３、選択されているセルを右クリック、削除、左方向にシフト。
【51481】Re:データ範囲の指定
お礼  Matsushita  - 07/9/20(木) 16:57 -
引用なし
パスワード
   ▼Jaka さん：
レスありがとうございます。
Ltrimではなく、Rtrimの記載ミスでした。

今、他のサイトを探していたら、↓のが見つかりまして、
解決しました。

　　Dim c As Range
　　For Each c In ActiveSheet.UsedRange
　　　 c.Value = RTrim(c.Value)
　　Next

ありがとうございました。


>▼Matsushita さん：
>>Ltrim関数で余計な空白を削除したいのですが、
>ちょっと意味が良く解りません。
>Ltrimって、こんなのですよ。
>
>Dim st As String
>st = "　 12　3 4 5　"
>MsgBox "[" & st & "]" & vbLf & _
>　　　 "[" & LTrim(st) & "]"
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5338 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free