直接設定整塊Range的formula屬性,然後再把公式轉換為值。 With .Range(.Cells(FinalRow + 1, 1), .Cells(Fi...
進階篩選 參考資料:https://support.office.com/zh-tw/article/%E4%BD%BF%E7%94%A8%E9%80%B2%E...
In J2, write =INDEX($J$7:$J$8,MATCH(HLOOKUP($J$1,$C$1:$H$2,2,FALSE),INDEX($C$7:$...
初版 select a.ddate, a.sid, b.high2 FROM table a left join ( select d...
我覺得是可以做到的。 網上查了VBA在 outlook的應用,大多是另存郵件附件,或是特殊條件過濾信件排序,好似沒有這類型的應用。 我覺得,把上面這些看一看...
try this Sub 存到資料庫() Dim r2 As Range Application.ScreenUpdating = F...
融合ckp6250的建議加上陣列試試看。我覺得應該會快很多(我自己的經驗是非常多)。 Sub wsj2() Dim i As Long, j As Lo...
我會捨棄input #,改用Line input #用Line input #把單一行文字讀進變數中,再用Split()切割。 Sub InOutbound_D...
試試看用Range.font.Italic屬性檢查是否為斜體。 Sub 批次新增工作表() '先把現存sheet弄成一個array Dim sh...