Question

请有人帮忙。我有一张叫做瓶子的纸张

A列是瓶子A-Z

的清单

B列是瓶中的味道

C列是味道的百分比

D列是日期

我有另一张名为Main的表格，我将所有发送到其他表格的数据（包括表格（瓶子））

我所做的是在工作表（主要）上的一个区域，我有下拉框，让我选择我需要发送到工作表的4件事（瓶子）再次它是相同的

细胞A3是瓶子A-Z

的列表

细胞B3是瓶中的味道

细胞C3是味道的百分比

单元格D3是日期

我要做的是创建一些VB代码，它将与Sheets（Main）上的第A3列中的内容匹配Sheets（Bottles）上的内容，然后粘贴来自Sheets（Main）B3，C3，D3的信息到匹配字母AZ

旁边的Sheets（Bottles）

很难找到我需要在线搜索的字词。找到1个代码，让我可以做我需要做的事情，但它不会将行粘贴到正确的位置

Option Explicit
Sub newbottle()

 Dim rFndCell As Range
 Dim strData As String
 Dim stFnd As String
 Dim fCol As Integer
 Dim sh As Worksheet
 Dim ws As Worksheet

Set ws = Sheets("Main")
Set sh = Sheets("Bottles")
stFnd = ws.Range("B3").Value

    With sh
        Set rFndCell = .Range("A:IV").Find(stFnd, LookIn:=xlValues)
            If Not rFndCell Is Nothing Then
                fCol = rFndCell.Column
                ws.Range("B3:D3").Copy sh.Cells(fCol)
            Else 'Can't find the item
                MsgBox "No Find"
        End If
    End With
End Sub

请有人帮忙吗？

由于马克

如果单元格与列匹配，则复制并粘贴行的其余部分

0 个答案: