關於vba指定匯入文字檔

帖子: 21
主題: 1
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-3-13
最後登錄: 2024-5-2

11^# 跳轉到 »

發表於 2015-4-29 16:04 | 只看該作者

回復 10# vavashop

這類型之條件,我記得錄製的無法達成(小的才疏學淺@@,可能有其他方法小ㄉ不知道),但建議自行撰寫
如您所提出之條件 "A欄位要成立  與  B欄位要成立兩者成立後的 C D E三個欄位只要有是大於0就出現嗎
dim data(100,5) , amount

amount=0
for i = 1 to sheets(2).range("A65536").end(xlup).row
               if sheets(2).cells(i,1)="A條件" and sheets(2).cells(i,2) ="B條件" then
                        if  'CDE欄位條件成立 then
                              amount =amount+1
                                       for  j = 1 to 5
                                                data(amount,j)=sheets(2).cells(i,j)
                                       next
                     end if
               end if
next

for i = 1 to amount
   for j = 1 to 5
         sheets(1).cells(i,j)=data(i,j)
   next
next

您可以試試看條件填入再跑跑看可否!

TOP

vavashop