我想要实现的函数是:
Sub knapp()
Dim counter As Integer
counter = 200
Rows("7").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromBelow
For counter = 200 To 800
If Sheets("Ark1").Range("C3").Value = "counter*" Then
Sheets("Ark2").Range("C" & counter).Copy
Sheets("Ark1").Range("E7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Ark1").Range("E7").HorizontalAlignment = xlCenter
Sheets("Ark2").Range("D" & counter).Copy
Sheets("Ark1").Range("F7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next counter
End Sub单元格C3包含一个数字和一个文本,即"240 -测试文本文本“。值会改变,但它的格式始终与上面一样。如果C3以240开头,那么我希望它从另一个工作表中复制相应的单元格。复制部分可以工作,但IF语句才是问题所在。我不知道如何检查C3是否以变量计数器开始。
预先感谢您的帮助
发布于 2016-03-02 18:10:50
使用此函数:
=ISNUMBER(SEARCH("240",C3))https://stackoverflow.com/questions/35743717
复制相似问题