小白，自做了一个小VB,遇到难题了

sanshiqy

各位老师好，
      我最近遇到一个难题了，自做了一个小VBA按钮程序，结果同事还要求
见图和附件



需要 如果里面的数据有删除的话，一样可以把数据放到ESR1.0 Corr里面去
比如：红框中的数值都删除后，仍然可以通过VBA控制按钮，根据“”2035 Verify Temp1 Thermistor“把bc2：bc6的值放入另外一个工作簿ESR1.0 Corr里面的d12:d16中去。
这个动态的代码我就难倒了

我的简单的代码如下：

'2035 Temp
Range("BC2:BC4").Select
Selection.Copy
Worksheets("ESR1.0 Corr").Range("D12:D14").PasteSpecial
Range("BA5:BA6").Select
Selection.Copy
Worksheets("ESR1.0 Corr").Range("D15:D16").PasteSpecial
'======================================================
希望能得到各位有爱心的老师的帮助。

bajifeng

楼主，你DATA工作表里的数据乱造的吧？
你所说的2035 Verify Temp1 Thermistor 多行重复 数据也是多行重复。

sanshiqy

bajifeng 发表于 2015-12-31 18:35
楼主，你DATA工作表里的数据乱造的吧？
你所说的2035 Verify Temp1 Thermistor 多行重复 数据也是多行重复 ...

       不是乱造的，是机器里面自动检测出来的，就是一个小芯片检测完了以后，把检测数据输出，然后根据数据我们要检查这个芯片的一些值，比如2035后面的值我们需要放到第二个工作簿里进行统计。但2035前面的值我们不需要。

      Serials是每一粒芯片的代码，不会重复，但2035这一项检查的值是每粒芯片都会检查到的

sanshiqy

bajifeng 发表于 2015-12-31 18:35
楼主，你DATA工作表里的数据乱造的吧？
你所说的2035 Verify Temp1 Thermistor 多行重复 数据也是多行重复 ...

比如我按了ESR1.0 Before的按钮以后，VBA会自动把我需要的2035的值提取出来放到工作簿2中去

bajifeng

行数是固定的吗？

sanshiqy

bajifeng 发表于 2015-12-31 18:50
行数是固定的吗？

行数固定，列数不固定

sanshiqy

2035只是检测项，我们需要提取的是2035后面一列的数值。

bajifeng

1. Sub db() 'bajifeng
   
2. For Each c In [a2:bb2]
   
3.     If InStr(c, "2035 Verify Temp1 Thermistor") > 0 Then
   
4.         arr = c.Offset(0, 1).Resize(5, 1)
   
5.     End If
   
6. Next
   
7. Sheets("ESR1.0 Corr").[d12].Resize(UBound(arr)) = arr
   
8. End Sub

复制代码

bajifeng

>>>>>>>>>>

bajifeng

>>>>>>>>>>>>>>>>>>>>>