如何在Excel VBA中的给定索引处删除字符串的元素?我当前的代码如下所示:
Private Sub RemovePeriods_Click()
Dim i As Integer
Dim Cutoff As Integer
For i = 0 To 14283
Cutoff = InStr(1, Range("K6").Offset(i, 0).Value, ".", vbTextCompare)
If Cutoff > 0 Then
End If
Next i
End Sub
因此,在最后一个if语句中,我想编写代码,以删除由cutoff指定的索引处的句点。我该怎么做呢?
提前致谢!
这将满足您的要求。试试这个,让我知道。
Private Sub RemovePeriods_Click()
Dim i As Integer
Dim Cutoff As Integer
Dim rngData As Range
Dim strToReplace As String
'Assign String to replace here
strToReplace = "."
For i = 0 To 14283
'Assign the cell to Range
Set rngData = Range("K6").Offset(i, 0)
Cutoff = InStr(1, rngData, strToReplace, vbTextCompare)
If Cutoff > 0 Then
'Apply Replace formula
rngData = WorksheetFunction.Replace(rngData, Cutoff, Len(strToReplace), "")
End If
Next i
Set rngData = Nothing
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句