VBA技巧（三）：代码换行符

函数换行

Function IsSheetExist(shname As String, _
name As String)

Function IsSheetExist(shname As String _
, name As String)

字符串换行

"(" _
+ .Cells(i, 1).Value + "," _
+ .Cells(i, 2).Value + ",'" _
+ .Cells(i, 3).Value + "'," _
+ .Cells(i, 4).Value + ")"

 

注意：下划线前一定要有空格