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

Sub Macro3()
5_`!o0X@a7e |/jZS0'51Testing软件测试网k6Ff:~#` h/{$@+idBv
' Macro3 Macro
,i;[ec-o9@q|0' 宏由 MC SYSTEM 录制，时间: 2008-5-851Testing软件测试网$cQR(Bt*m
'51Testing软件测试网G-L_n8^l3fw
' 快捷键: Ctrl+c51Testing软件测试网%w%q[ACf1x$DE
'51Testing软件测试网 iT"J5tjN
    Dim string1 As String51Testing软件测试网:h3L/H
[;xr5D
    string1 = ActiveCell.Value51Testing软件测试网:FJN9W&K^y
    string1 = Chr(34) & string151Testing软件测试网Cc$PA,|A!u
    string1 = string1 & Chr(34)51Testing软件测试网H `l2th-D8k/[
    ActiveCell.Value = string151Testing软件测试网9a.i9B3\.K I @
   
i,zbaj(Cy3n x3n+dRX0End Sub51Testing软件测试网5QU&e,M
h ORd
Sub Macro4()51Testing软件测试网n8v~sHFsKX}5}
'
pT Yay2`7|0' Macro4 Macro51Testing软件测试网n*LA4w J.d4?K
' 宏由 MC SYSTEM 录制，时间: 2008-5-8
Z+zpbE3pOO;D!\0'
FX)?,x
S eq{0' 快捷键: Ctrl+d
I$j0^k.`0'51Testing软件测试网2Q7UX!J Q];]R Q

          Dim Rng     As Range
} L-P$F#B)@j:j6e0          For Each Rng In Application.Selection
1}rk9rMbk0                          Rng.Select
CH-[&f3Y#K)sg&rE0                  Application.Run "test2.xls!Macro3"
is3G?Xk:ct0          Next51Testing软件测试网Z#^z7I4l
 51Testing软件测试网;K o4Uc*gZ aMz
  
"}W4e3es?(j8?t0End Sub51Testing软件测试网 Vtbg/MwZ
51Testing软件测试网)K_"Z ql