返回列表 上一主題 發帖

請教删除指定儲存格內容更簡單公式

笨小孩

帖子
77 
主題
19 
精華
0 
積分
115 
點名
0  
作業系統
windows 7 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2024-10-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-14 00:34 | 只看該作者

請教删除指定儲存格內容更簡單公式

If Answer = vbOK Then
    all = 0
   
    Call round(3, 15)
    Call round2(18, 30)
    Call round(33, 45)
    Call round2(49, 61)
    Call round(64, 76)
    Call round2(79, 91)
    Call round(95, 107)
    Call round2(110, 122)
    Call round(125, 137)
    Call round2(141, 153)
    Call round(156, 168)
    Call round2(171, 183)
    Call round(187, 199)
    Call round2(202, 214)
    Call round(217, 229)
    Call round2(233, 245)
    Call round2(248, 260)
    Call round(263, 275)
    Call round2(279, 291)
    Call round(294, 306)
    Call round2(309, 321)
    Call round(325, 337)
    Call round2(340, 352)
    Call round(355, 367)
    Call round2(371, 383)
    Call round(386, 398)
    Call round2(401, 413)
    Call round(417, 429)
    Call round2(432, 444)
    Call round(447, 459)
    Call round2(463, 475)
    Call round(478, 490)
    Call round2(493, 505)
   
End If

以上只是1個組別公式，共要删除11組別內容，希望有更簡單方法完成，謝謝
收藏 分享

笨小孩

帖子
77 
主題
19 
精華
0 
積分
115 
點名
0  
作業系統
windows 7 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2024-10-13 
2#
發表於 2011-11-14 00:37 | 只看該作者
Sub round(ByVal first, ByVal second)
    r = 0
    For r = first To second
        Cells(r, 43).ClearContents
        Cells(r, 45).ClearContents
        Cells(r, 47).ClearContents
        Cells(r, 49).ClearContents
        Cells(r, 54).ClearContents
        Cells(r, 56).ClearContents
        Cells(r, 58).ClearContents
        Cells(r, 60).ClearContents
        Cells(r, 65).ClearContents
        Cells(r, 67).ClearContents
        Cells(r, 69).ClearContents
        Cells(r, 71).ClearContents
        Cells(r, 76).ClearContents
        Cells(r, 78).ClearContents
        Cells(r, 80).ClearContents
        Cells(r, 82).ClearContents
        Cells(r, 87).ClearContents
        Cells(r, 89).ClearContents
        Cells(r, 91).ClearContents
        Cells(r, 93).ClearContents

    Next
End Sub

Sub round2(ByVal first, ByVal second)
    r = 0
    For r = first To second
        Cells(r, 43).ClearContents
        Cells(r, 45).ClearContents
        Cells(r, 47).ClearContents
        Cells(r, 49).ClearContents
        Cells(r, 54).ClearContents
        Cells(r, 56).ClearContents
        Cells(r, 58).ClearContents
        Cells(r, 60).ClearContents
        Cells(r, 65).ClearContents
        Cells(r, 67).ClearContents
        Cells(r, 69).ClearContents
        Cells(r, 71).ClearContents
        Cells(r, 76).ClearContents
        Cells(r, 78).ClearContents
        Cells(r, 80).ClearContents
        Cells(r, 82).ClearContents
        Cells(r, 87).ClearContents
        Cells(r, 89).ClearContents
        Cells(r, 91).ClearContents
        Cells(r, 93).ClearContents

    Next

End Sub

還有欄位

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題