哪位老师帮助修改下

jianganhong · 发表于 2020-11-27 10:31

Sub 辅助()
Application.ScreenUpdating = False
Workbooks.Open "C:\Users\zhiliang001\Desktop\111\11月份P8.8-掺镓合格数据.xlsx"       '打开目标文件路径
With Sheets("sheet1")                                                                '打开工作簿
Sheets("sheet1").Range("y2:y6000").ClearContents                                  '清除辅助列所有数据
      For a = 2 To .Range("y10000").End(3).Row                                     '建立循环
         .Cells(a, 25) = (Sheets("sheet1").Range("a4") & Sheets("sheet1").Range("a5"))       '做辅助列，d与e列链接得到完整的名字
      Next                                                                                     '循环
End With                                                                               '退出
With Sheets("锦州明细")
Sheets("锦州明细").Range("m4:m10000").ClearContents                               '清除m列所有数据
      For b = 4 To .Range("m10000").End(3).Row                                     '建立循环
         If .Cells(b, 4) = Sheets("sheet1").Range("a25") Then .Cells(b, 13) = "√" '判定"锦州明细"中的d列数值是否在”11月份P8.8-掺镓合格数据.xlsx“中的Y中存在，如果存在，m列打对号
         If .Cells(b, 4) <> Sheets("sheet1").Range("a25") Then .Cells(b, 13) = ""  '如果不存在 m列为空
      Next
End With
Application.ScreenUpdating = True
End Sub

jianganhong · 发表于 2020-11-27 11:01

有哪位老师有时间吗？

jianganhong · 发表于 2020-11-27 11:02

运行不报错，但是没有结果

jianganhong · 发表于 2020-11-27 11:03

Sub 辅助()
Application.ScreenUpdating = False
Workbooks.Open "C:\Users\zhiliang001\Desktop\111\11月份P8.8-掺镓合格数据.xlsx"       '打开目标文件路径
With Sheets("sheet1")                                                                '打开工作簿
Sheets("sheet1").Range("y2:y6000").ClearContents                                  '清除辅助列所有数据
      For a = 2 To .Range("y10000").End(3).Row                                     '建立循环
         .Cells(a, 25) = (Sheets("sheet1").Range("a4") & Sheets("sheet1").Range("a5"))       '做辅助列，d与e列链接得到完整的名字
      Next                                                                                     '循环
End With                                                                               '退出
Workbooks.Open "C:\Users\zhiliang001\Desktop\111\锦州数据-核对完已发货不再录入"       '打开目标文件路径
With Sheets("锦州明细")                                                                '打开工作簿
Sheets("锦州明细").Range("m4:m10000").ClearContents                               '清除m列所有数据
      For b = 4 To .Range("m10000").End(3).Row                                     '建立循环
         If .Cells(b, 4) = Sheets("sheet1").Range("a25") Then .Cells(b, 13) = "√" '判定"锦州明细"中的d列数值是否在”11月份P8.8-掺镓合格数据.xlsx“中的Y中存在，如果存在，m列打对号
         If .Cells(b, 4) <> Sheets("sheet1").Range("a25") Then .Cells(b, 13) = ""  '如果不存在 m列为空
      Next
End With
Application.ScreenUpdating = True
End Sub

3190496160 · 发表于 2020-11-27 12:00

上传附件也许能帮到你

jianganhong · 发表于 2020-11-27 13:05

3190496160 发表于 2020-11-27 12:00
上传附件也许能帮到你

上传了，老师帮忙看下，谢谢

yylucke · 发表于 2020-11-27 15:42

请参考
Sub 辅助()
Application.ScreenUpdating = False
With Workbooks.Open(ThisWorkbook.Path & "\" & "11月份P8.8-掺镓合格数据.xlsx")  '打开目标文件路径
arr = Sheets("sheet1").Range("A1").CurrentRegion
.Close
End With

With Sheets("锦州明细")
brr = .Range("A1").CurrentRegion
For i = 4 To UBound(brr) '建立循环
      .Cells(i, 13) = ""
      For j = 2 To UBound(arr)
         If brr(i, 4) = arr(j, 4) & arr(j, 5) Then '判定"锦州明细"中的d列数值是否在”11月份P8.8-掺镓合格数据.xlsx“中的Y中存在，如果存在，m列打对号
            .Cells(i, 13) = "√"
            GoTo LineNext
         End If
      Next j
LineNext:
Next i
End With
Application.ScreenUpdating = True
End Sub

jianganhong · 发表于 2020-11-28 09:21

本帖最后由 jianganhong 于 2020-11-28 09:24 编辑

老师，这个是新加的数据，是格式有问题吗？

jianganhong · 发表于 2020-11-28 09:26

yylucke 发表于 2020-11-27 15:42
请参考
Sub 辅助()
Application.ScreenUpdating = False

老师，运行都没问题，但是新加数据后，新加的数据不参与运算，是格式问题吗。

yylucke · 发表于 2020-11-30 10:00

请参考附件

222.rar (1.03 MB, 下载次数: 1)

		自动登录	找回密码
密码			免费注册

哪位老师帮助修改下

评分