怎么把excel 表格所有数据都加一个 ' （英文状态的单引号）

[学海无涯-回头是岸]

怎么把excel 表格所有数据都加一个 ' （英文状态的单引号）

[中国风]

这是让栏位导入时按文本方式导入 处理方法： 把EXCEL 复制到记事本 选中EXCEL所有单元格设置为文本 把记事本复制回EXCEL

[中国风]

非要在EXCEL处理，新增一个空白单元工作有，用公式让栏位内容加上引号’，再复制选择内容复制，替换原内容就行了

[道素]

如果是后期处理excel，可以用vbscript

Public Sub AppendQuote()

 Dim sh As Worksheet
 Dim iRowsCount As Integer, iColCount As Integer
 Dim i As Integer, j As Integer
 Set sh = Sheets(1)
  
  iRowsCount = sh.UsedRange.Rows.Count
  iColCount = sh.UsedRange.Columns.Count
  

  For i = 1 To iRowsCount
      For j = 1 To iColCount
         If Len(Trim(sh.Cells(i, j))) > 0 Then
            sh.Cells(i, j) = "'" & CStr(sh.Cells(i, j))
         End If
      Next j
  Next i
  
End Sub

[中国风]

Step1 EXCEL公式用法,填充就行了 =CONCATENATE("'",Sheet1!B2) Step2 复制 Step3 粘贴时—右健—选择性粘贴—（选：数值）

[学海无涯-回头是岸]

问题是我现在 好几万条的 数据，用vbscript 太慢了。主要是 我sql server 导出的数据 可以加载到 arcmap gdb数据库中， 但是用查询 复制到excel的数据 加载不进去。 一直在招原因

[道素]

用vbscript，如果数据大执行慢，你在执行前执行 Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual 执行完后在执行 Application.EnableEvents = True Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic 这样会加快很多

Public Sub AppendQuote()
 
 Dim sh As Worksheet
 Dim iRowsCount As Integer, iColCount As Integer
 Dim i As Integer, j As Integer
 Set sh = Sheets(1)
   
  iRowsCount = sh.UsedRange.Rows.Count
  iColCount = sh.UsedRange.Columns.Count
 
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual  
 
  For i = 1 To iRowsCount
      For j = 1 To iColCount
         If Len(Trim(sh.Cells(i, j))) > 0 Then
            sh.Cells(i, j) = "'" & CStr(sh.Cells(i, j))
         End If
      Next j
  Next i
   
  Application.EnableEvents = True
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic

End Sub