[excel]给选中的单元格加双引号

Sub Macro3()
p"` o-}|0'51Testing软件测试网
c,Cp K3F%JP+m-y
' Macro3 Macro51Testing软件测试网3xa8G6L;e:rs
' 宏由 MC SYSTEM 录制，时间: 2008-5-8
5\2y"rg5sE T+Y@0'
O#soWa]o{0' 快捷键: Ctrl+c51Testing软件测试网2cV6_:XW8n7J
'
N!qAe!{5dD0    Dim string1 As String
BzP#WP?H0    string1 = ActiveCell.Value
(C uuqVG0    string1 = Chr(34) & string151Testing软件测试网&rJ Zpw F
rJT
_
    string1 = string1 & Chr(34)
K`*T)@+}o0    ActiveCell.Value = string151Testing软件测试网&Z.[n"Kf
   51Testing软件测试网?,q$\/^CC
End Sub
u{2? v6x1m6P2V7ij0Sub Macro4()
FF.o)G'Vf(O0'51Testing软件测试网3`I yK/CMwcZ
' Macro4 Macro
-[$pAd
S0A/h-x0' 宏由 MC SYSTEM 录制，时间: 2008-5-851Testing软件测试网}^#[ n8^3E
'51Testing软件测试网 BN'Ki2h/F
' 快捷键: Ctrl+d51Testing软件测试网:?,r%L#};O USLq
'51Testing软件测试网G~|"|~hG

%c$E2nZM Vq:~0          Dim Rng     As Range
*D*Kq/\"LN` }9r/u
c0          For Each Rng In Application.Selection
2y_`$w8H1V7F0                          Rng.Select
$}B z_p3l;JK2y0                  Application.Run "test2.xls!Macro3"
F3a0Q8o(o;~0          Next
l7Oq*\`O8b6|A.b0 51Testing软件测试网
w+X4aJk\?.?T
  
o^1[;v'PJ
rT#\0End Sub51Testing软件测试网WZ(R,x v*m Iz