Excel VBA質問箱 IV

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

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


5326 / 13645 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   もしかしたらこれ?
手作業でやったものをマクロ記録でもしてください。
余計なものの記録されると思いますから、余計なものを削除するなりして編集する。

1、範囲を選択。
2、編集 → ジャンプ → セルの選択
  空白セルにチェックしてOKで閉じる。
3、選択されているセルを右クリック、削除、左方向にシフト。

【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) & "]"

5326 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free