Excel VBA質問箱 IV

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

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


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

17 / 76789

←次へ　｜　前へ→


	【82443】Re:複数の指定された項目を転記したい

マナ - 25/1/26(日) 21:34 -


	引用なし

	パスワード

▼初心者です。さん：

>ただ、貼り付けのBシートは、B列から項目があり、
>A列には貼り付けたデータのナンバリングが入ります。

ナンバリングの意味がわかりませんが？

Sub test()
　　Dim wsFrom As Worksheet, wsTo As Worksheet
　　Dim rngFrom As Range, rngTo As Range
　　Dim app As Application
　　Dim v, k, m
　　Dim n As Long
　　
　　Set wsFrom = Worksheets("A")
　　Set rngFrom = wsFrom.Cells(1).CurrentRegion
　　Set rngFrom = Intersect(rngFrom, rngFrom.Offset(1))
　　v = rngFrom.Resize(, rngFrom.Columns.Count + 1).Value
　　
　　Set wsTo = Worksheets("B")
　　wsTo.UsedRange.Offset(1).ClearContents
　　Set rngTo = wsTo.Cells(1).CurrentRegion
　　
　　Set app = Application
　　　　　　
　　m = app.XMatch(rngTo.Value, rngFrom.Rows(0))
　　m = app.IfError(m, UBound(v, 2))
　　n = UBound(v, 1)
　　
　 v = app.Index(v, app.Sequence(n), m)
　
　 Set rngTo = rngTo.Rows(2).Resize(n)
　 rngTo.Value = v
　 rngTo.Columns(1) = app.Sequence(n)
　　　
End Sub

17 hits

▼

【82431】複数の指定された項目を転記したい 初心者です。 25/1/24(金) 0:31