[已解决]求助求助急急急，本人有点笨，麻烦越简单越好

dengdeng我

最佳答案

月排行榜 / 总排行榜

0126

2017-5-26 17:08

Sub b()
On Error Resume Next                                             '程序出错不提醒继续执行下一句
Dim a, x, z, y, sh, ay, at, yq, tc                                '所有变量声明
sh = ActiveSheet.Cells(1, 250).End(xlToLeft).Column              '查找当前第一列有数据的最后一个单元格在第几列
For a = 1 To sh                                                  '循环第一列单元格
If InStr(Cells(1, a), "要求数量") Then                           '判断单元格Cells(1, a)是否有 要求数量 标题的单元格，有查询到就赋值并结束循环
  ay = a
  Exit For
End If
Next

For a = 1 To sh                                                     '下同
If InStr(Cells(1, a), "填充") Then
  at = a
  Exit For
End If
Next

yq = ActiveSheet.Cells(16666, ay).End(xlUp).Row                  '要求数量列有数据的最后一个单元格是哪行
tc = ActiveSheet.Cells(16666, at).End(xlUp).Row                  '填充列有数据的最后一个单元格是哪行
For x = 2 To yq                                                  '第几行要求数量
For z = 1 To Cells(x, ay)                                       '确定填充的次数
  For y = 2 To tc                                                '对填充行全部执行对比
   If Cells(y, at - 1) = Cells(x, ay - 1) And (InStr(Cells(y, at), "ok") Or InStr(Cells(y, at), "OK")) Then   '确定名称对应 并且 填充列有大写OK或者有小写ok
     Cells(y, at) = "yes"
     Exit For
   End If
  Next
Next
Next
End Sub

跳转到最佳答案楼层

dengdeng我

没人吗[em39]

0126

Sub b()
On Error Resume Next                                             '程序出错不提醒继续执行下一句
Dim a, x, z, y, sh, ay, at, yq, tc                                '所有变量声明
sh = ActiveSheet.Cells(1, 250).End(xlToLeft).Column              '查找当前第一列有数据的最后一个单元格在第几列
For a = 1 To sh                                                  '循环第一列单元格
If InStr(Cells(1, a), "要求数量") Then                           '判断单元格Cells(1, a)是否有 要求数量 标题的单元格，有查询到就赋值并结束循环
  ay = a
  Exit For
End If
Next

For a = 1 To sh                                                     '下同
If InStr(Cells(1, a), "填充") Then
  at = a
  Exit For
End If
Next

yq = ActiveSheet.Cells(16666, ay).End(xlUp).Row                  '要求数量列有数据的最后一个单元格是哪行
tc = ActiveSheet.Cells(16666, at).End(xlUp).Row                  '填充列有数据的最后一个单元格是哪行
For x = 2 To yq                                                  '第几行要求数量
For z = 1 To Cells(x, ay)                                       '确定填充的次数
  For y = 2 To tc                                                '对填充行全部执行对比
   If Cells(y, at - 1) = Cells(x, ay - 1) And (InStr(Cells(y, at), "ok") Or InStr(Cells(y, at), "OK")) Then   '确定名称对应 并且 填充列有大写OK或者有小写ok
     Cells(y, at) = "yes"
     Exit For
   End If
  Next
Next
Next
End Sub

dengdeng我

0126 发表于 2017-5-26 17:08
Sub b()
On Error Resume Next                                             '程序出错不提醒继续执行 ...

好难[em19]，看不懂

0126

dengdeng我 发表于 2017-5-27 12:46
好难，看不懂

公式看不懂，还是哪里看不懂，要是公式看不懂的话建议看下兰色幻想大大的vbn80，很简单易懂，只要看了3，4集就会知道了

dengdeng我

0126 发表于 2017-5-27 15:21
公式看不懂，还是哪里看不懂，要是公式看不懂的话建议看下兰色幻想大大的vbn80，很简单易懂，只要看了3 ...

好的谢谢

dengdeng我

dengdeng我 发表于 2017-5-27 15:44
好的谢谢

能帮我弄弄这个吗？简单的不要用函数可以吗？

0126

dengdeng我 发表于 2017-6-5 16:32
能帮我弄弄这个吗？简单的不要用函数可以吗？

这个，个人只会用VBA处理，建议重新发送新帖寻求帮助