Ｐａｇｅ 832 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Cell内の空白スペースの削除について １２３ 03/3/4(火) 17:39 ┗Re:Cell内の空白スペースの削除について KAZ 03/3/4(火) 19:47 ┗Re:Cell内の空白スペースの削除について １２３ 03/3/5(水) 19:13 ┗Re:Cell内の空白スペースの削除について KAZ 03/3/5(水) 19:40 ─────────────────────────────────────── ■題名 ： Cell内の空白スペースの削除について ■名前 ： １２３ ■日付 ： 03/3/4(火) 17:39 -------------------------------------------------------------------------
| みなさん こんばんは １２３です。 ちょっと困っています。お助けください。 会社の従業員の氏名がズラーっとＡ列に入力されています。 その氏名の後に、１個以上５個以下の空白スペースが 入っています。また、氏と名の間にも空白が１個入っています。 氏と名の間の空白は削除せず、名前の後のいくつかの空白のみを 全て削除したいのですが、可能でしょうか？ ちなみに、空白は全て全角です。 また、この作業は、別のデータファイルから引っ張って くるもので、今後何度もやらなければならない作業で、 クリック一発で処理できたらと、怠慢な私が願うものです。 宜しくお願い致します。 |
| ▼１２３ さん： >みなさん こんばんは >１２３です。 > >ちょっと困っています。お助けください。 >会社の従業員の氏名がズラーっとＡ列に入力されています。 >その氏名の後に、１個以上５個以下の空白スペースが >入っています。また、氏と名の間にも空白が１個入っています。 > >氏と名の間の空白は削除せず、名前の後のいくつかの空白のみを >全て削除したいのですが、可能でしょうか？ > >ちなみに、空白は全て全角です。 >また、この作業は、別のデータファイルから引っ張って >くるもので、今後何度もやらなければならない作業で、 >クリック一発で処理できたらと、怠慢な私が願うものです。 > >宜しくお願い致します。 Sub SUMPLE() A As String While ActiveCell <> "" A = ActiveCell ActiveCell = Trim(A) ActiveCell.Offset(1#).Select Wend End Sub カーソルを先頭のセルに持っていき、上のマクロ をスタートさせてください。Trim関数は文字間の 空白は取り除きません。 |
| ▼KAZ さん： こんばんは KAZさん ありがとうございました。 Trim関数なんて初めてみました。 本当にありがとうございました。 |
| １２３さん、こんばんわ。 蛇足になりますが、つまらぬミスがありましたので、・・・ Sub SUMPLE() A As String While ActiveCell <> "" A = ActiveCell ActiveCell = Trim(A) ActiveCell.Offset(1#).Select Wend End Sub の、ActiveCell.Offset(1#).Selectのところ、 Offset(1,0)の誤りでした、ごめんなさい。 ＶＢＡにはエクセルのものとはまた違った関数があります。 また、エクセルの関数と同じ働きでも名前の違う関数なども ありますし、エクセルの関数をＶＢＡの中で使うことも出来ます ので、研究してみてはいかがでしょう・・・それでは。 |