□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 検索した値を隣のセルに移動させたい。 | |
|---|---|
[195827] 検索した値を隣のセルに移動させたい。- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 乾燥植物 -(2023/08/01(11:16)) □U R L/ こんにちは。
VBAの初心者でどなたか、ご教授をお願いします。
●やりたい事
A列は顧客の名前一覧があり、そこから「会社」だけを隣のセル（B列）に移動をさせたい。
→「会社」の検索条件は「株式会社、㈱、有限会社、㈲」がある。
●書いたコード
色々なサイトを参考にして、自分なりにコードを書いてみましたが、これ以上、進展することができませんでした。
Dim R As Long
Range("B:B").ClearContents
For R = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(R, "A").Value Like "*株式会社*" Then
Cells(R, "B").Value = 〇
End If
Next R
●上記コードに足りないこと。
・検索するのが「株式会社」だけ
・隣のセルに移動できない。（現在は〇を入力させるだけ）
どなたか、アドバイスをお願いいたします。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195828] Re[1]: 検索した値を隣のセルに移動させたい。- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/08/01(11:47)) □U R L/
| |
[195829] Re[2]: 検索した値を隣のセルに移動させたい。- ■  / 記事引用/メール受信=OFF■
□投稿者/ 乾燥植物 -(2023/08/01(12:06)) □U R L/ 半平太様 わざわざコードを書いて頂きありがとうございました。 おかげさまで解決することが出来ました。 | |