返回列表 上一主題 發帖

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

笨小孩

帖子
77 
主題
19 
精華
0 
積分
115 
點名
0  
作業系統
windows 7 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2025-5-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 
最後登錄
2025-5-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

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題