返回列表 上一主題 發帖

[發問] 請問如何條件式判斷(空值)及條件式複製

aseeddie

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
性別
女 
註冊時間
2011-5-17 
最後登錄
2011-6-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-18 02:44 | 顯示全部帖子

[發問] 請問如何條件式判斷(空值)及條件式複製

Book1.rar (1.32 KB) 請問如何條件式判斷(空值)及條件式複製

假設A欄位有200列，且資非連續性分佈

如何判斷儲存格是否為空值

如果不是則保留原數值

如果是"空值"則複製上一格儲存格數值

如附件：
自動判斷A1有數值保留不動
判斷A2為空值，則複製上一格儲存格的資料
判斷A3為空值，則複製上一格儲存格的資料
以此類推，共200列

請高手教導，萬分感謝

Book1.rar (2.04 KB)

收藏 分享
新新手

aseeddie

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
vista 
軟體版本
office 2003 
閱讀權限
10 
性別
女 
註冊時間
2011-5-17 
最後登錄
2011-6-1 
2#
發表於 2011-5-18 04:27 | 顯示全部帖子
想了一個晚上終於已解出

請個位高手參考看看

是否有更高級的解法


Sub macro1()

Dim i As Integer

For i = 1 To 200

    If Cells(i, 1) = "" Then
      
    Cells(i, 1) = Cells(i, 1).Offset(-1, 0)
   
    End If
   
Next i

   
End Sub
新新手

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題