Question

我是一个优秀的新手。我正在尝试编写宏来填充基于第一张的sheet2。我在sheet1上有以下列：名称CustomName CustomeValue 海湾11 英国网站一个机架3 b英国网站 b机架2 C空空

表2 - 输出应如下所示名称Bay Site Rack 11英国3 b英国2 c

我确实尝试编写宏来逐行匹配并有选择地进行比较和填充，但是当大日期进来时，脚本随机填充，对此的任何帮助都将受到高度赞赏。

代码段：

Sub populatingsheet2()

    x = 2
    y = 2 
    Sheet2.Cells(y, 1) = Sheet1.Cells(x, 1) 
    Do While x <= 4 

        If Sheet1.Cells(x, 1) = Sheet1.Cells(x + 1, 1) Then 

            ‘I want unique records 
            'MsgBox "Identical" 
            If Sheet1.Cells(x, 2) = "Bay" Then 
                Sheet2.Cells(y, 2) = Sheet1.Cells(x, 3) 
            End If 
            If Sheet1.Cells(x, 2) = "Site" Then 
                Sheet2.Cells(y, 3) = Sheet1.Cells(x, 3) 
            End If 
            If Sheet1.Cells(x, 2) = "Rack" Then 
                Sheet2.Cells(y, 4) = Sheet1.Cells(x, 3) 
            End If 

        Else: 'MsgBox "Not Identical" 
        End If 
        x = x + 1 
        y = y + 1 

    Loop 

End Sub

Answer 1

那么，您是否认为在没有宏的情况下使用表2上的公式可以做到这一切？

在Sheet 2 Colummn B中可能是这样的：

=IF(Sheet1!B:B="Bay",Sheet1!C:C,"")

列C

=IF(Sheet1!B:B="Site",SHeet1!C:C,"")

HTH

菲利普

使用宏填充sheet2

1 个答案: