字符串两侧添加特殊符号的函数

xiakor

需求：
        EXCEL中使用VBA函数在字符串两侧添加单引号+逗号('str',)，最后一个字符串只加单引号('str')，方便操作SQL语句。
写了一个函数，没有实现该功能，求教于坛友们，谢谢。
代码：        

1. Public Function Ey(str As String) As String
   
2.     Dim i As Long
   
3.     Dim lngLastRow As Long
   
4.     '获取工作表中已使用区域最后一行的行号
   
5.     lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
6.     For i = 1 To lngLastRow
   
7.         '判断已使用区域下一单元格是否为空？
   
8.         If IsEmpty(Cells(i + 1, 1)) Then
   
9.             Ey = "'" & Trim(str) & "',"
   
10.         Else
    
11.             Ey = "'" & Trim(str) & "'"
    
12.         End If
    
13.     Next i
    
14. End Function

复制代码

czr0373

Public Function Ey(inputCell As Range) As String
    Dim lastRow As Long
    Dim currentRow As Long
    Dim result As String
    ' 获取调用单元格所在列的最后一行
    lastRow = inputCell.EntireColumn.Cells(inputCell.EntireColumn.Cells.Rows.Count, 1).End(xlUp).Row
    ' 当前行号
    currentRow = inputCell.Row
   
    ' 检查是否为最后一行
    If currentRow = lastRow Then
        ' 是最后一行，只加单引号
        result = "'" & inputCell.Value & "'"
    Else
        ' 不是最后一行，加单引号和逗号
        result = "'" & inputCell.Value & "',"
    End If
    Ey = result
End Function

xiakor

czr0373 发表于 2024-7-27 17:52
Public Function Ey(inputCell As Range) As String
    Dim lastRow As Long
    Dim currentRow As Lon ...

验证可行，谢谢了。