Excel VBA 数据视图和查询实例

Private Sub Workbook_Open()
Sheets("营业部").Select

'行遍历
For i = 5 To 368
'列遍历
For j = 1 To 32
Cells(i, j + 5).Select

Dim str As String
str = "=IF(ISNUMBER(VLOOKUP(R" & CStr(i) & "C3,总表!R5C3:R1466C37," & CStr(j + 3) & ",false)),VLOOKUP(R" & CStr(i) & "C3,总表!R5C3:R1466C37," & CStr(j + 3) & ",false),"""")"

ActiveCell.FormulaR1C1 = str
Next j

Next i
ActiveWorkbook.Save


End Sub


Sub excel去掉公式()
Sheets("营业部").Select
Sheets("营业部").UsedRange = Sheets("营业部").UsedRange.Value

End Sub