Excel中大量数据导入数据库需要处理成绿色角标的方法 图文

2018年7月13日11:08:05已关闭评论 4,612 views

微信公众号【EXCEL880】 QQ群【341401932】
课程咨询加我微信EXCEL880B 试学网址http://v.excel880.com

这里介绍一个用vba的方法,直接对批量数据加上单引号,方便使用sql语句或者其他系统导入

sheet1和sheet2自己替换为自己的表名

Public Sub 文本转换()
    Dim r As Range
    Set r = Sheets("sheet1").UsedRange
    Sheets("sheet2").Range(r.Address) = Application.Evaluate("=" & """" & "'" & """" & "&sheet1!" & Sheets("sheet1").UsedRange.Address)
End Sub