おはようございます。
エクセルは使いなれてますがVBAは記録を使っていて
書き換える程度なので調べてもあまり理解できず困ってます。
先程質問して、結合セルの置換に関しては解決したのですが、
もし簡単にできるのであればと質問させて頂きました。
今置換用のシートは
A列に置換前の文字
B列に置換後の文字が入ってます。
そして対象のシートが置換されるようになってるのですが、
これが列ではなく
1行目に置換前の文字
2行目に置換後の文字として処理するのには
どこを書き換えればよろしいのでしょうか?
色々試しましたがうまくいきませんでした。
実は、1行目に(A1セルに学生名(1)・A2のセルに住所(1))など20個くらい項目があります
2行目以降に5000行程、学生のデータが入ってます。
各会社の履歴書フォーマットは違うのですが、
入力欄が学生名(1)や住所(1)など入っている項目が同じなので
置換しております。
今は、1行ずつ下のデータを置換シートに貼り付けて
履歴書のシートで置換えをして
新しいファイルにコピーし保存して次のデータという
アナログな処理をしております。
同じフォーマット(履歴書)でしたらvlookupなどが使えたのですが。。。
フォーマットによって1つのセルに、学生名(1)と住所(1)が両方入っていたりするので諦めました。
対象セルの場所も形も違いますしね・・・
列で処理していたマクロを参考に下に貼り付けました。
明日の昼までにあと4000行を処理しなければならなくて困ってます。
お手数ですがどうぞよろしくお願いいたします。
Sub 置換()
With ThisWorkbook
If ActiveSheet Is .Worksheets(1) Then Exit Sub
For i = 1 To .Worksheets(1).Range("A500").End(xlUp).Row
ActiveSheet.Range("A1:Z200").Replace _
What:=.Worksheets(1).Range("A" & i).Value, _
Replacement:=.Worksheets(1).Range("B" & i).Value, _
LookAt:=xlPart, SearchOrder:=xlByColumns
Next
End With
End Sub
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
んにちは。
つまり、以下のように条件が変わったということでしょうか?
今置換用のシートは
>A列に置換前の文字
>B列に置換後の文字が入ってます。
↓
>1行目に置換前の文字
>2行目に置換後の文字として処理するのには
私は、全体が見えないですね。以下は、#3様のコードと、ほとんど変わりません、というか、こちらの解釈とズレはないという意味程度です。
なお、.Worksheets(1) このように、インデックスを使うと、左端にあるという意味だけですから、本来は、シートの名称を使ったほうがよいです。
'-------------------------------------------
'標準モジュール
Sub ReplacingCells()
Dim sh1 As Worksheet
Dim acSh As Worksheet
Dim col As Long
Dim rw As Long
Dim i As Long
Set sh1 = ThisWorkbook.Worksheets(1) '置換ソースデータ
Set acSh = ActiveSheet
'シートデータの確認
If acSh Is sh1 Then MsgBox "置換ソース・シートは置換できません。", 48: Exit Sub
If WorksheetFunction.CountA(acSh.Cells) < 2 Then MsgBox "対象データがありません。", 48: Exit Sub
'範囲の確定
With acSh
rw = .Cells(Rows.Count, 1).End(xlUp).Row
col = .Cells(.UsedRange.Cells.Count).Column
End With
'置換実行
Application.ScreenUpdating = False
With acSh
For i = 1 To sh1.Range("A65536").End(xlUp).Row Step 2
.Range(.Cells(1, 1), .Cells(rw, col)).Replace _
What:=sh1.Cells(i, 1).Value, _
Replacement:=sh1.Cells(i + 1, 1).Value, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
MatchCase:=True
Next i
End With
Application.ScreenUpdating = True
Set sh1 = Nothing
Set acSh = Nothing
End Sub
'-------------------------------------------
No.4
- 回答日時:
>For i = 1 To .Worksheets(1).Range("A500").End(xlUp).Row
データが横の方向に流れているなら
For J = 1 To .Worksheets(1).Range("IV2").End(xlToLeft).Column
処理
Next j
IV2の2は実情に合わせて変えること。
実情によりStepが必要な場合が有るかも。
>What:=.Worksheets(1).Range("A" & i).Value, _
Replacement:=.Worksheets(1).Range("B" & i).Value, _
はセル指定にRange表現を使っているが、Cells(2,j)のような書き方が
よいだろう。列番号をA,B、・・と英字で掴むことはやりにくいから。
ーー
質問をするときは、抽象化・簡略化したシートのデータ例を小数上げておくこと。
前の質問も関連がある場合は質問番号を挙げておくほうがよいだろう。
No.3
- 回答日時:
回答番号:No.1、回答番号:No.2 は解釈が違っていたようです。
>実は、1行目に(A1セルに学生名(1)・A2のセルに住所(1))など
>20個くらい項目があります
>2行目以降に5000行程、学生のデータが入ってます。
A列の1行目に置換前の文字、2行目に置換後の文字として、3行目以降も交互にデータがあるということですか?
2行1セットで学生データがあり、検索する文字が学生名で、置換後の文字が住所、ということですか?
よくわかりませんが、とりあえず下記でどうでしょうか。
Sub test2()
Dim i As Long
With ThisWorkbook
If ActiveSheet Is .Worksheets(1) Then Exit Sub
For i = 1 To .Worksheets(1).Range("A65536").End(xlUp).Row Step 2
ActiveSheet.Range("A1:Z200").Replace _
What:=.Worksheets(1).Range("A" & i).Value, _
Replacement:=.Worksheets(1).Range("A" & i + 1).Value, _
LookAt:=xlPart, SearchOrder:=xlByColumns
Next
End With
End Sub
No.2
- 回答日時:
回答番号:No.1で、抜けがありました。
For i = 1 To .Worksheets(1).Range("A500").End(xlUp).Row
も
For i = 1 To .Worksheets(1).Range("IV1").End(xlToLeft).Column
に変えてください。
No.1
- 回答日時:
Replaceの引数、WhatとReplacementのセル指定を、Cellsに変えてみてください。
What:=.Worksheets(1).Range("A" & i).Value, _
Replacement:=.Worksheets(1).Range("B" & i).Value, _
を
What:=.Worksheets(1).Cells(1, i).Value, _
Replacement:=.Worksheets(1).Cells(2, i).Value, _
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelからテキストへのコ...
-
エクセルのセルの中の,よりも前...
-
Excelで、半角スペースをTABに...
-
エクセルの関数で、記号などを...
-
小数点を消す方法
-
Excelの空文字セルの削除方法を...
-
置換機能を使わずに先頭に「'」...
-
Excelのmatch関数エラー原因が...
-
エクセルでセル内の一部分だけ...
-
excelで可視セルのみ置換
-
EXCELで"Tab"を"@"に置換したい
-
Excelで特定の文字の前だけに空...
-
エクセルの置換 メアドの@の前...
-
【エクセル】ピボットテーブル...
-
企業名簿で(株)や(有)を無視し...
-
エクセルの表ををメモ帳などに...
-
Excelのシートにある1行...
-
エクセルでセルを文字列設定し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelからテキストへのコ...
-
Excelで、半角スペースをTABに...
-
エクセルのセルの中の,よりも前...
-
Excelの空文字セルの削除方法を...
-
excelで可視セルのみ置換
-
Excelの入力済みセルに一括で、...
-
エクセルでセル内の一部分だけ...
-
置換機能を使わずに先頭に「'」...
-
小数点を消す方法
-
【エクセル】ピボットテーブル...
-
Excelのシートにある1行...
-
EXCELエクセル長文の置き換え
-
Excelのmatch関数エラー原因が...
-
Excelのアポストロフィーの削除
-
エクセルでスペースの記号を表...
-
エクセルの関数で、記号などを...
-
一括でダブルクリックした状態...
-
エクセルの表ををメモ帳などに...
おすすめ情報