创建一个宏，可以在数据集中定义的多个列上应用翻译

Sub ApplyTranslation() Dim rng As Range Dim col As Range Dim translate As String Dim i As Long, j As Long

'Define the range of columns you want to apply translation
Set rng = Range("A:E")

'Loop through each column within the defined range
For Each col In rng.Columns
    'Get the column number
    j = col.Column
    'Ask for the translation to apply
    translate = InputBox("Enter the translation to apply on column " & j)
    'Loop through each cell within the column
    For i = 1 To col.Cells.Count
        'Apply the translation
        col.Cells(i).Value = translate & col.Cells(i).Value
    Next i
Next col

End Sub