返回列表 上一主題 發帖

關於vba指定 匯入文字檔

回復 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

謝謝大大 我試看看

TOP

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題