求教：不知代码错哪了：在多组 样品组中，如何把符合条件的单元格中的值一次性提取...

wjk7222

       问题：在多组 样品组中，要 把 维修次数 大于或等于 3 所对应的 样品名称，提取或输出 来，设单元格位置所在的 行数为变量i、列数为变量h,如何用VBA 实现？  
      
        初学VBA, 用 单元格定位操作的办法，输出数组结果，但却出错，不知代码错在哪里，请高手指正并修改一下，谢谢！
        我的思路：设单元格 行数 为i 列数 为h,那么要输出的 样品结果 所在 单元格为  Cells(i, h)，而条件单元格则为  Cells(i, h + 1)。当 维修次数 大于或等于 3 时，即  Cells(i, h + 1).Value >= 3 ，那么 用 输出 函数 print 输出单元格Cells(i, h)的值 。（输出结果有很多个，是个数组），但不知为什么代码出错，如何修改？
     Private Sub CommandButton1_Click()
  Dim i,h,x
      For i =  2 To [a65536].End(3).Row
              h =  1 To 500     "设列数范围为 1列 至 500列，本想像设行数 i 一样的，也包含工作表全部列的，但不会设“
                x = Sheets("Sheet1").Cells(i, h)               
          If Cells(i, h + 1).Value >= 3 Then     
             print (x)              
           End If
       Next  
End Sub

abc123281

样表123.rar (19.26 KB, 下载次数: 11)

2020-2-1 22:50 上传

点击文件名下载附件

wjk7222

谢谢大神专家！