返回列表 上一主題 發帖

[發問] VBA 儲存格放多筆資料

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2015-1-7 20:08 | 顯示全部帖子
回復 1# fantersy

試試看

把Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6) & Chr(10)  換成


if Cells(X1, 15) ="" then
    Cells(X1, 15) = MO(X2, 3) & ">>" & MO(X2, 6)  '如果此儲存格是空白的
else
    Cells(X1, 15) = Cells(X1, 15) &  Chr(10)   & MO(X2, 3) & ">>" & MO(X2, 6)  '如果不是空白
end if
PKKO

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題