Excel VBA質問箱 IV

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

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


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

4174 / 76734

←次へ　｜　前へ→


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

β - 16/5/20(金) 9:31 -


	引用なし

	パスワード

▼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

5 hits

▼

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