別のwbからセルをインポートしようとしています。したがって、wb1 col Hのセルがwb2 col Kのセルと一致する場合、wb1 col kとL = wb2 col CとEが一致する行にあります。今度はいくつかの一致があるので、次の列にオフセットしたいと思っています。 mとnは次の集合、oとpは次の集合などである。これは動作しませんExcel VBA異なる列に複数の一致をインポートする同じ行
Private Sub CommandButton1_Click()
Dim rcell As Range, sValue As String
Dim lcol As Long, cRow As Long
Dim dRange As Range, sCell As Range
Dim LastRow As Integer
Dim CurrentRow As Integer
Set ws1 = ThisWorkbook
Set ws2 = Workbooks("Workbook2").Worksheets("Sheet1")
Sheet1LastRow = ThisWorkbook.Sheets("Data").Range("H2:H50000").Value 'Search criteria column
Sheet2LastRow = Workbooks("Workbook2").Worksheets("Sheet1").Range("Q" & Rows.Count).End(xlUp).Row 'Where to look for matches
With Workbooks("Workbook2").Worksheets("Sheet1")
For j = 1 To Sheet1LastRow
For i = 1 To Sheet2LastRow
If ThisWorkbook.Sheets("Data").Range("H").Value = ws2.Cells(i, 11).Value Then
ws2.Cells(i, 11).Value = ThisWorkbook.Sheets("Data").Range("C").Value
ws2.Cells(i, 12).Value = ThisWorkbook.Sheets("Data").Range("E").Value
End If
If InStr(1, ws2.Cells.Value, ws1.Cells.Value) And Trim(ws1.Cells.Value) <> "" Then
rcell.Offset(0, lcol).Value = ws2.Cells.Offset(0, 2).Value
lcol = lcol + 1
End If
Next i
Next j
End With
End Sub
:
は、これは私がこれまで持っているものです。私は何が欠けているのか分からないので、基本的に諦めました。
私はこのようなものを探しましたが、Vlookup
またはMatch
のようなものしか見つけられませんでした。
私は正直に多分あなたは、いくつかの例を追加し、あなたの文言に従うことができない – user3598756
...だから、WBを言うことができますなぜそう私は理解することができます。(「1」)。ワークシート(「子犬」)。範囲( "H ")は子犬の名前を持っています。ワークシート( "成長チャート")。範囲( "J")には子犬の名前があります。だからマッチがある場合は、「成長チャート」から体重(col C)と身長(col E)を取って重量の場合はwb1 col Kに、高さの場合はcol Lに挿入します。私は同じ名前を持つ複数の子犬で、私は次の2つの列だけでなく、同じ行に他の試合を配置しようとしています。これを他にどのように説明するか分かりません。 – Noisewater