结论如下:
'等号赋值
Private Sub CopyStringEqual()
Dim s1 As String, s2 As String
s1 = "123456"
Debug.Print StrPtr(s1)
s2 = "654321"
s1 = s2
Debug.Print StrPtr(s1)
End Sub
'Lset 赋值
Private Sub CopyStringLet()
Dim s1 As String, s2 As String
s1 = "123456"
Debug.Print StrPtr(s1)
s2 = "654321"
LSet s1 = s2
Debug.Print StrPtr(s1)
End Sub
还是说明一下
LSET的用法注意了,两边要相等,否则你试试 :0)