こんばんは。
VBA初心者です。
今、エクセル2003で以下の画像のような
表を作りました。
今、行いたい処理は、B列のセルの
文字列の左から3文字を上から調べていって、
もし「新宿区」であれば、(東京)新宿区
と表示する、置換コードをつくりたいのです。
なお、1行目の「東京都新宿区」の場合は、そのままスル―
でいいです。
該当する行は、左の連番が空白でない間なので
そのコードは以下のように作成できました。
DO~LOOPの間の上記のLEFT関数の処理が
うまくできませんでしたので、教えてください。
よろしくお願いします。
Sub sample()
Dim num As Integer
num = 1
Do Until Cells(num, 2).Value <> ""
num = num + 1
Loop
End Sub
No.1ベストアンサー
- 回答日時:
練習のためであれば,そういうのも良いかもしれませんが。
。?if left(cells(num, 2), 3) = "新宿区" then
cells(num, 2) = "(東京)" & cells(num, 2)
end if
ところで
>該当する行は、左の連番が空白でない間なので
あなたが書いたのは,そういうマクロになっていません。
sub sample2()
dim h as range
for each h in range("B1:B" & cells(cells.rows.count, 1).end(xlup).row)
if left(h.value, 3) = "新宿区" then
h.value = "(東京)" & h.value
end if
next
end sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
Accessのクエリで、replace関数...
-
Access で半角スペースと全角ス...
-
Accessのスプレッドシートエク...
-
アクセス 削除するレコードを含...
-
access 更新クエリについて
-
実行時エラー3131 FROM 句の構...
-
accessデータを指定したExcel、...
-
Accessレポートのチェックボッ...
-
【至急・画像あり】建物or住所...
-
CSVファイルの「0落ち」にVBA
-
Vba Userformを前面に出すについて
-
Microsoft365にAccessってあり...
-
ACCESS VBA でのエラー解決の根...
-
Microsoft Accessをクレジット...
-
AccessVBAで降順にするテーブル...
-
アクセス where句を使用して複...
-
教えてください! アクセスの書...
-
accessでexcelを読み込む時のデ...
-
ACCESS2019でのエラーメッセージ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL マクロ データが転記さ...
-
ExcelのVBAで最終行の下にコピ...
-
VBA繰り返し ワイルドカード
-
エクセルVBA 行と列の取得
-
重複するデータを複数条件で抽...
-
【VB】バラバラの行数の文字を...
-
sheet間での転記エラー
-
Excelで同じシートのコピーを一...
-
条件に応じて特定の行を非表示...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
Excelで金銭出納帳。繰越残高を...
-
別シート参照のセルをシート毎...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイルを開いたと...
-
エクセルでシート名を自動入力...
-
EXCELで同一フォーマットのシー...
-
シートの保護のあとセルの列、...
-
EXCELで1ヶ月分の連続した日付...
-
エクセルで前のシートを連続参...
おすすめ情報