返回列表 上一主題 發帖

[發問] 依條件刪除整列資料

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-3-2 05:20 | 顯示全部帖子

[發問] 依條件刪除整列資料

早安：

請問以下該如何寫程式??
a) 執行程式時,不要變動CVS工作表A:S的公式及格式
b) CVS工作表A欄 & I欄符合條件則整列刪除,並另存新檔....AAA_YYYYmmdd

c) A欄:以VBA工作表[AS7]為條件,當[AS7]="",則A欄不比對,當[AS7]="V",則符合條件,將A欄="結束",整列刪除

d) I欄條件:以VBA工作表[AS6]為條件,當[AS6]="",則I欄不比對,當I欄的日期="" or I欄日期<[AS6],整列刪除

促銷資訊.rar (47.56 KB)
收藏 分享

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2021-3-3 23:58 | 顯示全部帖子
回復 2# jcchiang

感謝大大的幫忙,
程式OK

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2021-3-4 23:53 | 顯示全部帖子
回復 4# 准提部林

准大好,
原程式執行沒問題,稍加修改為可以自行開啟,並將工作表指定為Sh,但無法執行,告知需要物件?
Set Sh = xB.Sheets("CVS")
R = [Sh!A65536].End(xlUp).Row - 2

另資料大幅刪除後,我想讓資料畫面停在工作表有資料的最後一列,但無作用,請問要怎麼改寫?
xrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A" & xrow).Activate

整列刪除_促銷資訊.rar (44.95 KB)

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題