使用Python在Excel（. xlsx）中查找和替换字符串

Question

我正在尝试替换一组字符串。xlsx表（约70k行，38列）。我有一个文件中要搜索和替换的字符串列表，格式如下：-

bird produk - bird product
pig - pork
ayam - chicken
...
kuda - horse

要搜索的单词在左侧，替换词在右侧（查找“bird produk”，替换为“bird product”）。My.xlsx工作表如下所示：-

name     type of animal     ID
ali      pig                3483
abu      kuda               3940
ahmad    bird produk        0399
...
ahchong  pig                2311

我正在寻找最快的解决方案，因为我有大约200个单词在列表中要搜索，和。xlsx文件相当大。为此，我需要使用Python，但我愿意接受任何其他更快的解决方案。

编辑：-添加了图纸示例

Edit2:-尝试了一些python代码来读取单元格，花费了相当长的时间来读取。有什么建议吗？

from xlrd import open_workbook
wb = open_workbook('test.xlsx')

for s in wb.sheets():
    print ('Sheet:',s.name)
    for row in range(s.nrows):
        values = []
        for col in range(s.ncols):
            print(s.cell(row,col).value)

谢谢你！

我终于明白了。VBA模块和Python代码都可以工作。我诉诸法律。相反，csv可以让事情变得更简单。非常感谢。以下是我的Python代码版本：-

import csv

###### our dictionary with our key:values. ######
reps = {
    'JUALAN (PRODUK SHJ)' : 'SALE( PRODUCT)',
    'PAMERAN' : 'EXHIBITION',
    'PEMBIAKAN' : 'BREEDING',
    'UNGGAS' : 'POULTRY'}


def replace_all(text, dic):
    for i, j in reps.items():
        text = text.replace(i, j)
    return text

with open('test.csv','r') as f:
    text=f.read()
    text=replace_all(text,reps)

with open('file2.csv','w') as w:
    w.write(text)

Answer 1

与@coder_A的想法类似，但是使用字典为您进行“翻译”，其中键是原始单词，每个键的值是它被翻译成的值。

Answer 2

制作2个数组A[bird produk，pig，ayam，kuda]//要更改的单词B[bird produk，pork，chicken，horse]//更改单词后的结果

现在检查excel的每一行，并将其与A的每个元素进行比较。如果我匹配，则将其替换为B的相应元素。

例如//不是像伪代码这样的实际代码

for (i=1 to no. of rows.)
{
for(j=1 to 200)
{
if(contents of row[i] == A[j])
then contents of row[i]=B[j] ;
break;
}
}

为了加快速度，您必须在替换单词后立即停止当前迭代，并检查下一行。

Answer 3

我会将文本文件的内容复制到excel文件中的新工作表中，并将该工作表命名为“查找”然后使用“文本到列”从第一行开始获取新工作表前两列中的数据。

将以下代码粘贴到Excel中的模块中并运行它：

Sub Replacer()
    Dim w1 As Worksheet
    Dim w2 As Worksheet

    'The sheet with the words from the text file:
    Set w1 = ThisWorkbook.Sheets("Lookup")
    'The sheet with all of the data:
    Set w2 = ThisWorkbook.Sheets("Data")

    For i = 1 To w1.Range("A1").CurrentRegion.Rows.Count
        w2.Cells.Replace What:=w1.Cells(i, 1), Replacement:=w1.Cells(i, 2), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Next i

End Sub