[算表] 如何使用VBA在资料栏中添加""符号

楼主: yimean (温柔杀手)   2021-08-25 13:58:08
软件:Excel
版本:Office 365
各位高手下午好。
我有一个应用需要将整个column的资料全部加上""
例如: A
1 Test
2 Good
变成
A
1 "Test"
2 "Good"
目前只有成功加上 '
目前不Work的程式如下
Sub 字串标注()
Dim col As String
col = Cells(2, 11).Value
With ActiveSheet
LR = .UsedRange.Rows.Count
For Each l In Range(col & "2:" & col & LR & "")
l.Value = """ & l.Value & """
Next
End With
End Sub
其中col变量是让使用者填要添加在哪一个Column.
烦请高手指导,感恩。
作者: waiter337 (给开司一罐苏格登)   2021-08-25 14:27:00
楼主: yimean (温柔杀手)   2021-08-25 16:23:00
@x大,感恩指导。是说,可否请教原理?我对于四个引号这个原理不太懂,其他的都没问题。
作者: waiter337 (给开司一罐苏格登)   2021-08-25 21:24:00
这里我也不懂 3个不行就用4个 4个不行就用3个我是这样用的
作者: max01060926 (猪头人身)   2021-08-25 22:17:00
要显示一个双引号 就用两个"" 要两个就用四个""""
楼主: yimean (温柔杀手)   2021-08-26 09:43:00
收到,赶下两位大大分享。

Links booklink

Contact Us: admin [ a t ] ucptt.com