Option Explicit
Sub 筛选并合并至新表格()
Dim wb As Workbook
Dim tongji As Workbook
Dim shaixuan As Worksheet
Set wb = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输入报表\基础参数\CheckResult_200_NR参数核查导入模板_V3运营商基线_泉州网管_20200922151142.csv")
Set tongji = Workbooks.Open("E:\福州项目\参数核查\输入输出表格\输出报表\SA参数核查统计-0922.xlsx")
Set shaixuan = wb.Worksheets(1)
MsgBox (shaixuan.Cells(2, 2))
'如果满足条件,则
'If shaixuan.Cells(2,5)=tongji.Cells(5,3) and (shaixuan.Cells(2,6)<-108 OR shaixuan.Cells(2,6)>-100)
'Then 对应的地市+1
End If
End Sub
VBA读取excel文件
最新推荐文章于 2023-03-25 21:36:24 发布