返回列表 上一主題 發帖

略過空格

lai.k.h

帖子
19 
主題
7 
精華
0 
積分
31 
點名
0  
作業系統
windows7 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2011-1-13 
最後登錄
2019-12-27 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-2-16 16:09 | 只看該作者

略過空格

A    B     C
2   10   0.2
5   12   0.42
4      
6   12   0.5
.      .     .
.     .      .

請問一下,若要將A欄/B欄結果顯示於C欄,但是B欄為空值時要繼續往下執行時,VBA程式碼該如何寫,感謝
收藏 分享

lai.k.h

帖子
19 
主題
7 
精華
0 
積分
31 
點名
0  
作業系統
windows7 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2011-1-13 
最後登錄
2019-12-27 

論壇贊助勳章
3#
發表於 2011-2-16 21:47 | 只看該作者
GBKEE謝謝您

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-2-16 16:22 | 只看該作者
回復 1# lai.k.h
  1. Sub Ex()
  2.     Dim C As Range
  3.     For Each C In Range("a1:a15")
  4.         If C.Cells(1, 2) <> "" Then C.Cells(1, 3) = C / C.Cells(1, 2)
  5.     Next
  6. End Sub
複製代碼

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題