Excel VBA質問箱 IV

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

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


8605 / 13644 ツリー ←次へ | 前へ→

【32349】文字置き換え ZEBRA 05/12/13(火) 9:54 質問[未読]
【32350】Re:文字置き換え ちくたく 05/12/13(火) 10:02 発言[未読]
【32356】Re:文字置き換え ZEBRA 05/12/13(火) 11:06 質問[未読]
【32362】Re:文字置き換え Statis 05/12/13(火) 11:33 回答[未読]
【32363】Re:文字置き換え ZEBRA 05/12/13(火) 11:50 お礼[未読]

【32349】文字置き換え
質問  ZEBRA  - 05/12/13(火) 9:54 -

引用なし
パスワード
   A列の支社コード番号を支社名に置換えたいのですが
どなたかご教示お願いします。(データ数500強)

  A

1 支社コード
2  2
3  3
4  1
5  4
6  2 
7  3
*  1  
*  2

(置換後)
  A

1 支社コード
2  岡山
3  埼玉
4  静岡
5  青森

【32350】Re:文字置き換え
発言  ちくたく WEB  - 05/12/13(火) 10:02 -

引用なし
パスワード
   ZEBRA さん。
おはようございます。

置き換えたいといいましても、
支社コード=支社名の関係性がわかりません。

支社コード(支社名)は何種類くらいありますか?
対応表を提示してください。

【32356】Re:文字置き換え
質問  ZEBRA  - 05/12/13(火) 11:06 -

引用なし
パスワード
   ▼ちくたく さん
こんにちは。

わかりづらく申し訳ございません。
コードは4種類になります。

コード 支社名
1   静岡
2   岡山
3   埼玉
4   青森

【32362】Re:文字置き換え
回答  Statis  - 05/12/13(火) 11:33 -

引用なし
パスワード
   こんにちは

置き換えで作ってみました。
該当のシートをアクティブにしてから実行して下さい。
A列を対象としています。


Sub Test()

Dim Da As Variant, Da1 As Variant, i As Long

Da = Array(1, 2, 3, 4)
Da1 = Array("静岡", "岡山", "埼玉", "青森")

Application.ScreenUpdating = False
For i = 0 To UBound(Da)
  Columns(1).Replace What:=Da(i), Replacement:=Da1(i), LookAt:=xlWhole, _
              SearchOrder:=xlByColumns, MatchCase:=True
Next i
Application.ScreenUpdating = True

Erase Da: Erase Da1

End Sub

【32363】Re:文字置き換え
お礼  ZEBRA  - 05/12/13(火) 11:50 -

引用なし
パスワード
   Statis さん:
こんにちは

ありがとうございます。
とても勉強になりました。

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