Question

我几年没有写任何VBA，所以生锈了，我会很感激帮助。

我有一个包含大约9k行文本的文件，我需要一个脚本，它将从超过20个字符的任何行中删除前两个引号。

我该怎么做？

更新

我有这个选择超过20个字符的行，但不知道如何删除前两个引号：

Sub Sanitise()

Dim sh As Worksheet
Dim rw As Range

RowCount = 0

Set sh = ActiveSheet
For Each rw In sh.Rows

    If Len(sh.Cells(rw.Row, 1).Value) > 20 Then
    ' Need to remove the first two quotes
    End If

Next rw

End Sub

数据：

A00,408，＆＃34; UXS＆＃34;，201309,10X641,00110 U02,99400，＆＃34; 200X601＆＃34;，＆＃34; E＆＃34;，＆＃34; N＆＃34 ;，＆＃34; 38418＆＃34;＆＃34; 064X09＆＃34;＆＃34; 00＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34 ;, ＆＃34;   ＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34; E＆＃34;＆＃34;＆＃34;＆＃34;＆＃34; S72，＆＃34; MXRE0042＆＃34; S72，＆＃34; MRE0047＆＃34; S72，＆＃34; MRE0047＆＃34;   U02,7514100，＆＃34; 201613＆＃34;＆＃34; E＆＃34;＆＃34; N＆＃34;＆＃34; 66620＆＃34;＆＃34;
  21011X＆＃34;＆＃34; 00＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34 ;, ＆＃34; ＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34; E＆＃34;＆＃34;＆＃34;＆＃34;＆＃34; S72，＆＃34; MRE00432＆＃34;   S72，＆＃34; MRE00457＆＃34; S72，＆＃34; MRE00417＆＃34; U02,7513770602，＆＃34; 20X12＆＃34;＆＃34; E＆＃34;＆＃34; N＆＃34;＆＃34; 40761＆＃34;＆＃34;   12775X＆＃34;＆＃34; 00＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34 ;, ＆＃34; ＆＃34;＆＃34;＆＃34;＆＃34;＆＃34;＆＃34; E＆＃34;＆＃34;＆＃34;＆＃34;＆＃34; S72，＆＃34; MRE00432＆＃34;   S72，＆＃34; MRE00X47＆＃34; S72，＆＃34; MRE004X7＆＃34;

Answer 1

这样的内容将通过A列并使用变量数组删除长度超过20个字符的字符串中的前两个GenerableParameter。

代码将更新的字符串转储到B列。

从超过20个字符长的行中删除前两个引号

1 个答案: