妳的IF三個判斷好像錯了，tms表都應該是cells(j,xxx)吧，不應該有cells(L,"aa")和cells("AU,"aa")，對嗎？
另外，妳的then後面的語句沒有給出，妳是希望把滿足條件的記錄放在ff工作表的D\E\F等列吧，是不是？
另外，妳FF表A\B\C列的條件有可能有多個結果，妳想把多個結果都找出來，那麽結果放在哪裏呢，這個妳要先想好，才可以按要求寫代碼。如果妳每想好，我建立結果放在D\E\F等列，但是要先存放條件，也就是按ABC的條件搜索的結果放在D\E\F\G等列，但是D\E\F三列內容是A\B\C對應的條件，壹行存放多行，代碼大概如下：
Dim?I?as?Long,?J?As?Long,?K?as?Longdim?stFF?as?WorkSheet,?stTMS?as?worksheet
set?stFF=Sheets("FF?-?Lane?-?MOT")'工作表
set?stTMS=Sheets("TMS?No?Dupli")'工作表
k=1'搜索結果保存的行
For?I?=?8?To?stFF.Range("E1046876").End(xlUp).Row
For?J?=?8?To?stTMS.Range("a1046876").End(xlUp).Row
If?stFF.Cells(I,?"A")?=?stTMS.Cells(J,?"aa")?And?_
stFF.Cells(I,?"B")?=?stTMS.Cells(J,?"L")?And?_
stFF.Cells(I,?"C")?=?stTMS.Cells(J,?"au")?Then?
stFF.cells(k,"D")=stFF.cells(i,"A")
stFF.cells(k,"E")=stFF.cells(i,"B")
stFF.cells(k,"F")=stFF.cells(i,"C")
stFF.cells(k,"G")=stTMS.cells(J,"AA")
stFF.cells(k,"H")=stTMS.cells(J,"L")
stFF.cells(k,"I")=stTMS.cells(J,"AU")
K=K+1
end?if
next?jnext?i