Excel查找和replace

我的问题是我怎么能做一个replace，并find一个replace字是不相同的。 基本上，我想找一个单词“x”来代替，用5个单词代替单词“A”，然后用“B”代替下一个5单元，等等千次。 我如何设法做到这一点？

Answer 1

从互联网上运行代码之前，请始终对数据进行备份。 这将在列A中find“x”的所有实例，并将其replace为您在vaReplace中设置的值。

Sub FindReplace() Dim rFound As Range Dim vaReplace As Variant Dim lFound As Long Dim lRepCount As Long Const lMAX As Long = 5 'how many to replace before switching values Const sFIND As String = "x" 'what to look for Const lCOLUMN As Long = 1 'which column to look in 'list of values to use as replacements vaReplace = Array("A", "B", "C", "D", "E") Set rFound = Sheet1.Columns(lCOLUMN).Find(sFIND, Sheet1.Cells(Sheet1.Rows.Count, lCOLUMN), xlValues, xlWhole) lFound = 1 lRepCount = 0 If Not rFound Is Nothing Then Do If lFound > lMAX Then lRepCount = lRepCount + 1 lFound = 1 End If 'if not enough in vaReplace, use the last value If lRepCount > UBound(vaReplace) Then lRepCount = UBound(vaReplace) rFound.Value = vaReplace(lRepCount) Set rFound = Sheet1.Columns(1).FindNext lFound = lFound + 1 Loop Until rFound Is Nothing End If End Sub 

Answer 2

你可以导出到CSV？ 如果是这样的话，你可以这样做，然后在Linux中使用常用的命令行工具，或者使用一个文本编辑器，如你所描述的那样，你知道这些文件的function是可以查找/

您可以使用Gnumeric或LibreOffice来执行此操作（在Linux，Windows上）。