Yahoo奇摩 網頁搜尋

  1. Sht=Thisworkbook.name 或ActiveWorkbook.name 抓取工作表名稱 for i=1 to sheets .count cells(i,1)= sheets (i).name next

  2. 妳的圖片解像度太高,根本看不清。我估妳重複用 RangeByName 這個名。試用不同名代表 funcation 同 variable 試用這個。如 Set rngNameOfRange = ... 已了解,已補充。試用不同名代表function name 同 variable name。

  3. ...時間格式的09:00 與文字格式的09:00,雖然在儲存格都是顯示09:00 但實際上會被 Excel 判斷成不同的值 您得自行檢查兩邊的格式或內容是否相同 如果是格式不同...

  4. 大概這樣....資料填入自行修改 Sub 巨集1() Sheets ("sheet1").Select With Sheets ("sheet2") ...

  5. ... Dim freeCell As Integer Sheets ("Sheet1").Select Set rngData = ...

  6. http://blog.xuite.net/hcm19522/twblog/542936315

  7. Ca = Sheets ("來源").[H1048576].End(3).Row ''H...欄最後一格的下一格 Range("B" & Cb) = Sheets ("來源").Range("H" & Ca)

  8. Dim rng As Range Dim idx As Long idx = 2 For Each rng In Range("D1:D120000") Cells(idx, "B").Value = rng.Value idx = idx + 2...