質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

2954閲覧

VBAで同じ値があるとき、同じ値がある指定セルを転記したい

dmg

総合スコア8

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/09/20 09:56

編集2021/09/23 09:18

Sheet1 :4桁の数字が"A"に100行まで入っている
Sheet2 :"I"にSheet1のAに入っている数字がばらばらに入っている。
"A"に8桁の数字が入っている

Sheet1を基にSheet1"A2"から最終行までを、Sheet2の"I"と照らし合わせ
同じ数字があった場合に、Sheet1"A"にSheet2"A"を書き換えたいです。

どうしても同じ値がある行に書き換えるというコードが書けないです・・・
お力を貸していただけると幸いです。

<参考資料>

Sheet1
Sheet1

Sheet2
Sheet2

希望結果
希望結果

自分で書いたコード

VBA

1'//使用セルの最終行を取得 2  Dim wS As Worksheet 3 Set wS = ThisWorkbook.Worksheets("Sheet1) 4 Dim ws1 As Worksheet 5 Set ws1 = ThisWorkbook.Worksheets("Sheet2") 6 Dim fin_line As Long, k 7 With ws1.UsedRange 8 fin_line = .Rows(.Rows.Count).Row 9 End With 10 For k = 2 To fin_line 11 12 If wS.Range("A" & k) = ws1.Range("I" & k) Then 13 wS.Range("A" & k).Value = ws1.Range("A" & k) 14 End If 15 DoEvents 16 Next k

これだと希望結果を出せないのは分かっておりますが、いい方法を思いつかないです・・

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

IndexとMatchを組み合わせるのはExcel関数の場合でもよくやる手口です。

vba

1Sub sample() 2 Dim arr, i 3 arr = Sheet1.UsedRange.Value 4 For i = 1 To UBound(arr) 5 arr(i, 1) = WorksheetFunction.Index(Sheet2.Columns(1), WorksheetFunction.Match(arr(i, 1), Sheet2.Columns(9), False)) 6 Next 7 Sheet1.UsedRange.Value = arr 8End Sub

XLOOKUPが使えるなら、

vba

1arr(i, 1) = WorksheetFunction.XLookup(arr(i, 1), Sheet2.Columns(9), Sheet2.Columns(1))

どちらの場合も、見つからなかった場合の考慮はしていません。

投稿2021/09/23 10:08

編集2021/09/23 10:22
jinoji

総合スコア4585

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

dmg

2021/09/23 11:43

jinoji様、いつもご回答ありがとうございます。 どちらもエラーが出てしまうので、 見つからなかったときの対応としては、 On Error Resume Next文とOn Error GoTo文でエラー処理をするということで大丈夫でしょうか。
jinoji

2021/09/23 12:12

XLookupは見つからなかったときの値も指定できます。 arr(i, 1) = WorksheetFunction.XLookup(arr(i, 1), Sheet2.Columns(9), Sheet2.Columns(1), "-") Index+Matchを使うなら、まずCountIfで確かめるという手があります。 If WorksheetFunction.CountIf(Sheet2.Columns(9), arr(i, 1)) > 0 Then
dmg

2021/09/23 12:46

そのような簡単で分かりやすいコードの書き方もあるのですね。 いつも、初心者の私でも分かりやすく可読性の高いコードをご教示いただき感謝しております。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問