vba

Question

お世話になります。
エクセルシートの例えばセルＢ1からＢ4000まで文字（1-12，1-564等）が入力されていて
その文字を検索値としてVLOOKUPしたいのですが、文字のなかに不要なものが入っている
ため検索できません。関数のTRIMを使えばできるのですが、VBAを使ってやってみたいと
思っています。TRIMを使ってＢ1からＢ4000をA1からA4000に入力したいです。
どなたかよろしくお願いします。

tatsumaru77 · Accepted Answer

すみません。B列の内容について、勘違いがありました。
（提示されたC列の内容もB列に含まれていると解釈していました）

以下は、単純にB列の内容の両端の空白を削除した結果をA列に設定するマクロです。

前のマクロは破棄してください。
Option Explicit
Public Sub 不要物削除()
    Dim i As Long
    For i = 1 To 4000
        Cells(i, "A") = Trim(Cells(i, "B").Value)
    Next
End Sub

fujillin · Answer

No1です。

以下、いささか辛口になりますが・・

＞VBAを使ってやってみたいと思っています。
普通なら、VBAを作成して自分で実行することを言うと思います。

一方で、やり取りを見ていると、質問者様のなさっていることは「コピペ」と「できない」と書込むことだけ。
他人が作ったものを「使って」みたいということなら、既に、目的は達成できているはずと思います。
（結果は思う通りではなくても、「使ってみる」という目的は達成できている）

曖昧な情報しかないので、正確な回答にならないのだと想像しますけれど・・
＞関数のTRIMを使えばできるのですが～～
もしも、これが正しいのなら、TRIMを使えば済むだけの話と思います。

Sub hoge()
For Each c In Range("B1:B4000")
c.Offset(, -1).Value = Trim(c)
Next c
End Sub

徹底して行うのなら、No6様の方法で
RE.Pattern = "[\f
	\s　]"
として、
For rw = 1 To 4000
Cells(rw, 1).Value = RE.Replace(Cells(rw, 2).Value, "")
Next rw
とでもすればセル内改行や文字間のスペースも取り除けます。

＞大変参考になりました、
「無視します」としか読み取れませんね。

tatsumaru77 · Answer

上記の例では、B列が157Kですが、この場合、
A列に157と設定したいのでしょうか。それとも157Kと設定したいのでしょうか。（それとも空白のままにしたいのでしょうか？）

tatsumaru77 · Answer

>文字によっては（157ｋとか）空白のままでした。
B列が
157K -41139.649 66259.242
の場合は、
A列に
157K -41139
と設定されることを期待していますか。
それとも、
157-41139
と設定されることを期待していますか。

又、上記例ではKが1文字ですが、
157XYZ -41139.649 66259.242
のように、英字が複数の場合もあるのでしょうか。

又、
XYZ157 -41139.649 66259.242
のように英字が前にある場合もあるのでしょうか。

tatsumaru77 · Answer

No9です。
＞実行できましたが、Ａ列は空白です。

９行目の
RE.Pattern = "^(\d+-\d+).*$"　を
RE.Pattern = "^(\d+-\d+).*"　に変えた場合（最後の$をとる）、どうなりますか。

又、
A列の全ての行が空白なのでしょうか。それとも、特定の行のみが空白なのでしょうか。

初心者ですが何か。 · Answer

既出の回答を弄るのはマナー違反とは思いますが。

RE.MultiLine = True '←追加してみる？
RE.Global = True

データ的に打ち込んだと言うより何かから出力された物をコピペされているのかどうか？？？

tatsumaru77 · Answer

念のため、下記URLにアップしました。
https://ideone.com/K5PVkk
前のは破棄して、こちらを使用してください。

添付図のように登録されればOKです。（赤線で囲んだところ）

tatsumaru77 · Answer

＞Option Explicitのところでコンパイルエラーがでました。

もしかして、標準モジュール内に、既にあなたが作った処理があり、
Sub xxxx()
    '何かの処理
End Sub
Option Explicit
Public Sub 不要物削除()
・・・

のようになってますか？
その場合は、Option Explicitの行を削除してください。

tatsumaru77 · Answer

＞Option Explicitのところでコンパイルエラーがでました。

Option Explicit
Option Explicit
Public Sub 不要物削除()

のように、Option Explicitが2行になっていませんか？
Option Explicitは１行だけにしてください。

tatsumaru77 · Answer

以下のマクロを標準モジュールに登録してください。
B列から不要分を削除した結果をA列にセットします。

Option Explicit
Public Sub 不要物削除()
    Dim i As Long
    Dim RE As Object
    Dim str As String
    Dim matches As Object
    Dim submatch As Object
    Set RE = CreateObject("VBScript.RegExp")
    RE.Pattern = "^(\d+-\d+).*$"
    RE.Global = True
    For i = 1 To 4000
        str = Cells(i, "B").Value
        If str <> "" Then
            Set matches = RE.Execute(str)
            If matches.count > 0 Then
                Set submatch = matches.Item(0).submatches
                Cells(i, "A").Value = submatch(0)
            End If
        End If
    Next
End Sub

vba

すみません。

No1です。

上記の例では、B列が157Kですが、この場合、

>文字によっては（157ｋとか）空白のままでした。

No9です。

既出の回答を弄るのはマナー違反とは思いますが。

念のため、下記URLにアップしました。

＞Option Explicitのところでコンパイルエラーがでました。

＞Option Explicitのところでコンパイルエラーがでました。

以下のマクロを標準モジュールに登録してください。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング