Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4162 / 76734

←次へ　｜　前へ→


	【78198】Re:エクセル内のデータ転送に関して

TODD - 16/5/24(火) 12:34 -


	引用なし

	パスワード

β さん：
ご返答有難う御座います。たいへん助かります。
こちらのご返答が遅くなり申し訳御座いません。
現在、内容を確認させて頂いておりますが、
先にTestについてご質問させて下さい。

With Range(Cells(1, col), Cells(Rows.Count, col).End(xlUp)).Resize(, 3)
→ワークシートの左側に入力されている文字の行・列を範囲を選択し、
その範囲を3行右に広げる。

それ以降の箇所はどのような意味になっているのでしょうか？
adr1 = .Cells(1).Address(False, True)
.Columns("B:C").Formula = "=IFERROR(VLOOKUP(" & adr1 & "," & adr0 & ",COLUMN(B1),FALSE),""登録なし"")"
.Value = .Value

分割して試してみたり、ネット調べてみたのですが分からず、時間が
掛かってしましました。　早急にご対応頂きましたので、申し訳御座いません。

以上

▼β さん：
>▼TODD さん：
>
>要件誤解あれば指摘願います。
>
>Sub Test()
>　　Dim col As Long
>　　Dim adr0 As String
>　　Dim adr1 As String
>　　
>　　col = Cells(1, Columns.Count).End(xlToLeft).Column
>　　adr0 = Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Address
>　　
>　　With Range(Cells(1, col), Cells(Rows.Count, col).End(xlUp)).Resize(, 3)
>　　　　adr1 = .Cells(1).Address(False, True)
>　　　　.Columns("B:C").Formula = "=IFERROR(VLOOKUP(" & adr1 & "," & adr0 & ",COLUMN(B1),FALSE),""登録なし"")"
>　　　　.Value = .Value
>　　End With
>　　
>End Sub

7 hits

▼

【78185】エクセル内のデータ転送に関して TODD 16/5/20(金) 8:24