匹配列表框第一列号到表格第一列号并在现有表格相邻匹配号vba excel上复制粘贴号

Question

我有一个多列列表框，并且第一列中有许多单个或重复的数字。 当单击命令按钮时，列表框的第一列编号将与 sheet1 匹配 (B) 列的数字。 Sheet1 列 (B) 编号是唯一的。 复制 sheet1 列 (E) 数据并粘贴列 (C) 仅匹配唯一数字。

请帮帮我，我很担心。

我的代码是：

Private Sub commandbutton1_Click()

Dim ws As Worksheet

Dim x As Long

Dim fCell As Range

Set ws = ThisWorkbook.Sheets("Sheet1")

With ws

Set fCell = .Range("A:A").Find(Me.listbox1.value, , xlValues, xlWhole)

'If record doesn't match, do nothing
If fCell Is Nothing Then Exit Sub

x = fCell.Row

p = .Cells(i, 5).Value

.cells(i, 3).value=p

End With

End Sub

这是我的 Listbox1 示例... Listbox1

我的工作表1： Sheet1

现在当 listbox1 First Column (Code) 将与 Sheet(Sheet1) Column:B (Code) 匹配时 Sheet1 Column:E (H-Qty) 复制并粘贴到 Column:C (G-Qty) 中。 复制和粘贴将仅通过匹配（listbox1 & sheet1 => 代码） 这是我想要的图片： Change Sheet1 After Matching

Answer 1

请测试下一个修改后的代码：

Private Sub commandbutton1_Click()
 Dim ws As Worksheet, x As Long, fCell As Range

 Set ws = ThisWorkbook.Sheets("Sheet1")
 If Me.ListBox1.ListIndex = -1 Then Exit Sub  'when nothing selected
 ListBox1.BoundColumn = 1                     'column where from to return the value

 With ws
    Set fCell = .Range("A:A").Find(Me.ListBox1.value, , xlValues, xlWhole)
    'If record doesn't match:
    If fCell Is Nothing Then Exit Sub
        x = fCell.row
         .cells(x, 3).value = .cells(x, 5).value
 End With
End Sub