excel - 在每个单元格数据的开头和末尾添加“”

Question

我有一个相当大的 Excel csv 文件，我需要将其添加"到"每个单元格的开头和结尾。

单元格包含混合文本，无论是

• 数字
• 文本
• 链接

等等，所有这些我都需要在每个单元格的开头和结尾添加引号。

我怎样才能做到这一点？

Answer 1

用手：

• 将第一个单元格值更改为 =""""&A1&""""
• 将此单元格格式拖动到整页

或通过 vb 宏

Answer 2

我已经从Excel 中改编了这段代码，在公式栏中显示前导零

它使用变体数组来提高速度，只更新UsedRange电子表格的一部分

• 同时按 Alt 和 F11 进入 VBE
• 插入模块
• 复制并粘贴下面的代码
• 同时按 Alt 和 F11 返回 Excel
• 从开发人员选项卡运行宏

如果您愿意，它可以适应忽略空白单元格 - 让我知道

Sub AddStrings()
Dim rng1 As Range
Dim rngArea As Range
Dim strRep1 As String
Dim strRep2 As String
Dim lngRow As Long
Dim lngCol As Long
Dim lngCalc As Long
Dim X()


strRep1 = """"
strRep2 = """"

ActiveSheet.UsedRange
Set rng1 = ActiveSheet.UsedRange

'Speed up the code by turning off screenupdating and setting calculation to manual
'Disable any code events that may occur when writing to cells
With Application
    lngCalc = .Calculation
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With

'Test each area in the user selected range

'Non contiguous range areas are common when using SpecialCells to define specific cell types to work on
For Each rngArea In rng1.Areas
    'The most common outcome is used for the True outcome to optimise code speed
    If rngArea.Cells.Count > 1 Then
        'If there is more than once cell then set the variant array to the dimensions of the range area
        'Using Value2 provides a useful speed improvement over Value. On my testing it was 2% on blank cells, up to 10% on non-blanks
        X = rngArea.Value2
        For lngRow = 1 To rngArea.Rows.Count
            For lngCol = 1 To rngArea.Columns.Count
                'replace the leading zeroes
                X(lngRow, lngCol) = strRep1 & X(lngRow, lngCol) & strRep2
            Next lngCol
        Next lngRow
        'Dump the updated array sans leading zeroes back over the initial range
        rngArea.Value2 = X
    Else
        'caters for a single cell range area. No variant array required
        rngArea.Value = strRep1 & rngArea.Value2 & strRep2
    End If
Next rngArea

'cleanup the Application settings
With Application
    .ScreenUpdating = True
    .Calculation = lngCalc
    .EnableEvents = True
End With

End Sub