返回列表 上一主題 發帖

(已解決)註解內容怎麼依次擷取多各儲存格

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
1# 跳轉到 »
發表於 2011-5-12 13:30 | 顯示全部帖子
Sub commetxt()
    a = Join(Application.Transpose([d1:d15]), vbLf)
    '[a1].AddComment
    [a1].Comment.Text Text:=a

End Sub

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題