Excel工作簿有三个工作表"GU","Sheet2","Sheet3"；需使用VBA完成以下操作： 1.删除工作表“Sheet2","Sheet3" 2.在工作表“GU"的AO1:AU1填入标题SO&Line NO，Customer Name，Cust. Code，Sales Channel:，Customer Contact Name:，Customer Contact Email:，Date 3.AO2=I2&J2,AP2=A2,AQ2=VLOOKUP($AP2,[LIST.xlsb]Code!$B$1:$F$8,MATCH(AQ$1,[LIST.xlsb]Code!$B$1:$F$1,0),0) AR2=VLOOKUP($AP2,[LIST.xlsb]Code!$B$1:$F$8,MATCH(AQ$1,[LIST.xlsb]Code!$B$1:$F$1,0),0) AS2=VLOOKUP($AP2,[LIST.xlsb]Code!$B$1:$F$8,MATCH(AQ$1,[LIST.xlsb]Code!$B$1:$F$1,0),0) AT2=VLOOKUP($AP2,[LIST.xlsb]Code!$B$1:$F$8,MATCH(AQ$1,[LIST.xlsb]Code!$B$1:$F$1,0),0) 4.按照函数填充对应行，清除值为0的单元格内容

以下是VBA代码实现：

Sub ModifyWorksheet()
    '删除工作表
    Application.DisplayAlerts = False
    Sheets(Array("Sheet2", "Sheet3")).Delete
    Application.DisplayAlerts = True
    
    '在工作表GU的AO1:AU1填入标题
    Sheets("GU").Range("AO1").Value = "SO&Line NO"
    Sheets("GU").Range("AP1").Value = "Customer Name"
    Sheets("GU").Range("AQ1").Value = "Cust. Code"
    Sheets("GU").Range("AR1").Value = "Sales Channel:"
    Sheets("GU").Range("AS1").Value = "Customer Contact Name:"
    Sheets("GU").Range("AT1").Value = "Customer Contact Email:"
    Sheets("GU").Range("AU1").Value = "Date"
    
    '填充AO2:AU2单元格
    Sheets("GU").Range("AO2").Value = Sheets("I2").Value & Sheets("J2").Value
    Sheets("GU").Range("AP2").Value = Sheets("A2").Value
    Sheets("GU").Range("AQ2").Formula = "=VLOOKUP($AP2,[LIST.xlsb]Code!$B$1:$F$8,MATCH(AQ$1,[LIST.xlsb]Code!$B$1:$F$1,0),0)"
    Sheets("GU").Range("AR2").Formula = "=VLOOKUP($AP2,[LIST.xlsb]Code!$B$1:$F$8,MATCH(AQ$1,[LIST.xlsb]Code!$B$1:$F$1,0),0)"
    Sheets("GU").Range("AS2").Formula = "=VLOOKUP($AP2,[LIST.xlsb]Code!$B$1:$F$8,MATCH(AQ$1,[LIST.xlsb]Code!$B$1:$F$1,0),0)"
    Sheets("GU").Range("AT2").Formula = "=VLOOKUP($AP2,[LIST.xlsb]Code!$B$1:$F$8,MATCH(AQ$1,[LIST.xlsb]Code!$B$1:$F$1,0),0)"
    
    '自动填充公式
    Dim lastRow As Long
    lastRow = Sheets("GU").Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("GU").Range("AO2:AU" & lastRow).FillDown
    
    '清除值为0的单元格
    Dim cell As Range
    For Each cell In Sheets("GU").UsedRange
        If cell.Value = 0 Then
            cell.ClearContents
        End If
    Next cell
End Sub

注意替换代码中的文件名和工作表名称。