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

sanshiqy

试过了，虽然代码还不怎么理解，但很有效，很厉害! 非常谢谢！

sanshiqy

出了问题了，编译后如下：

Option Explicit

Dim c() As Variant

Private Sub CommandButton1_Click()

CommandButton1.Font.Size = "12"


If Range("F2") <> 0 Then

'Serial Number

Range("F2:F6").Select

Selection.Copy

Worksheets("ESR1.0 Corr").Range("C12:C16").PasteSpecial

End If

'==================================================================
'2035 Verify Temp1 Thermistor

'Sub Temp()


For Each c In [$a$2:$o$o2]

    If InStr(c, "2035 Verify Temp1 Thermistor") > 0 Then
        arr = c.Offset(0, 1).Resize(5, 1)
    End If

Next
Sheets("ESR1.0 Corr").[d12].Resize(UBound(arr)) = arr

'End Sub

sanshiqy

bajifeng 发表于 2015-12-31 19:08
>>>>>>>>>>>>>>>>>>>>>

原来有个问题说变量没有设定，我照网上的加了
Dim c() As Variant
后面又出来这个问题，不知道怎么改了

bajifeng

亲，改成
Dim c As Range

bajifeng

sanshiqy 发表于 2015-12-31 21:36
原来有个问题说变量没有设定，我照网上的加了
Dim c() As Variant
后面又出来这个问题，不知道怎么改了

好厉害，自己套了好几组数据呢。

bajifeng

sanshiqy 发表于 2015-12-31 20:23
试过了，虽然代码还不怎么理解，但很有效，很厉害! 非常谢谢！

因为我懒，所以，就像用比较少的代码，不想多打字

常规是先赋值给数组，然后数组循环查找 2035.。。。接着锁定目标区域，最后写入数据。

sanshiqy

谢谢老师，刚才的问题解决了，又碰到一个问题：

我给的五个芯片下面的2035位置不同，但VBA里面没有分别出来，我就加了一行，可是不能运行，不知道怎么解决

Sub db() 'bajifeng


For Each c In [a2:bb2]

    If InStr(c, "2035 Verify Temp1 Thermistor") > 0 Then
   
        arr = c.Offset(0, 1).Resize(3, 1)
        
    End If

Next

Sheets("ESR1.0 Corr").[d12].Resize(UBound(arr)) = arr



For Each d In [a5:bb5]

    If InStr(d, "2035 Verify Temp1 Thermistor") > 0 Then
   
        arr = d.Offset(0, 1).Resize(2, 1)
        
    End If

Next
Sheets("ESR1.0 Corr").[d15].Resize(UBound(arr)) = arr

End Sub

sanshiqy

解决了，第二个改成arr2

sanshiqy

好像还是太烦了，每组里面都要写两次，不懂有没有更简单的方法了

sanshiqy

bajifeng 发表于 2015-12-31 21:40
因为我懒，所以，就像用比较少的代码，不想多打字

常规是先赋值给数组，然后数组循环查找 2035.。。。 ...

有花了，感谢老师！