Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8619 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【32349】文字置き換え ＺＥＢＲＡ 05/12/13(火) 9:54 質問[未読]
【32350】Re:文字置き換え ちくたく 05/12/13(火) 10:02 発言[未読]
【32356】Re:文字置き換え ＺＥＢＲＡ 05/12/13(火) 11:06 質問[未読]
【32362】Re:文字置き換え Statis 05/12/13(火) 11:33 回答[未読]
【32363】Re:文字置き換え ＺＥＢＲＡ 05/12/13(火) 11:50 お礼[未読]
【32349】文字置き換え
質問  ＺＥＢＲＡ  - 05/12/13(火) 9:54 -
引用なし
パスワード
   Ａ列の支社ｺｰﾄﾞ番号を支社名に置換えたいのですが
どなたかご教示お願いします。（データ数５００強）

　　A

1　支社ｺｰﾄﾞ
2　　２
3　　３
4　　１
5　　４
6　　２　
7　　３
*　　１　　
*　　２

(置換後）
　 A

1　支社ｺｰﾄﾞ
2　　岡山
3　　埼玉
4　　静岡
5　　青森
【32350】Re:文字置き換え
発言  ちくたく WEB  - 05/12/13(火) 10:02 -
引用なし
パスワード
   ＺＥＢＲＡ さん。
おはようございます。

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

支社コード（支社名）は何種類くらいありますか？
対応表を提示してください。
【32356】Re:文字置き換え
質問  ＺＥＢＲＡ  - 05/12/13(火) 11:06 -
引用なし
パスワード
   ▼ちくたく さん
こんにちは。

わかりづらく申し訳ございません。
ｺｰﾄﾞは４種類になります。

ｺｰﾄﾞ　支社名
１　 　静岡
２ 　　岡山
３ 　　埼玉
４ 　　青森
【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:文字置き換え
お礼  ＺＥＢＲＡ  - 05/12/13(火) 11:50 -
引用なし
パスワード
   Statis さん：
こんにちは

ありがとうございます。
とても勉強になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8619 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free