1樓：匿名使用者
dim wb as workbook, filename as string, r as worksheet, rs as worksheet
set r = activesheet
if r.range("b65536").end(xlup).row > 1 then
r.rows("2:" & r.range("b65536").end(xlup).row).delete
end if
filename = dir(thisworkbook.path & "\*.xls") '待彙總檔案
doif filename <> thisworkbook.name then '如果當前檔案不是匯部表，則處理此檔案
set rs = workbooks.open(thisworkbook.path & "\" & filename).worksheets("最新") '開啟待彙總檔案
for i = 2 to rs.range("b65536").end(xlup).row
if cstr(rs.cells(i, 3)) <> "" or cstr(rs.cells(i, 4)) <> "" or cstr(rs.
cells(i, 5)) <> "" then
ro = r.range("b65536").end(xlup).row + 1
for j = 1 to 5
r.cells(ro, j) = rs.cells(i, j)
next j
end if
next i
rs.parent.close (false) '關閉檔案
end if
filename = dir() '遍歷下一個檔案
loop while filename <> ""給分。
2樓：
把問題作為內容（郵件主題一定要包含「excel」,本人以此為依據辨別非垃圾郵件）、excel樣表檔案（請特別注意：要03版的(如果是03以後的，把檔案「另存為」一下，型別框可以選擇03的），把現狀和目標效果表示出來）作為附件發來看下 [email protected]
3樓：匿名使用者
如果是分任務填制的表，設定公式的工作量和直接貼一起的工作量，差不多的，
還是直接貼一起方便。
4樓：匿名使用者
最好有個例子，這樣過於籠統無法給出公式
5樓：藺瑩
要設定一個函式，也就是就和公式
在excel表中,如何將公司全稱改為簡稱 如 深圳市華美麗科技有限公司變成簡稱華美麗
分列，或者公式,假設全稱在a1，簡稱b1單元格公式 mid a6,find 市 a6 1,find 科 a6 find 市 a6 1 ctrl t調出查詢與替換視窗，點替換，查詢內容後輸入 深圳市華美麗科技 替換為後輸入 華美麗，最後點全部替換，完成。如下圖 查詢替換。ctrl h 怎麼 excel...
excel中如何將空值替換為，Excel中如何將空值替換為
1 先開啟需要編輯的excel 如圖，需要將空值替換為0。2 按住鍵盤上的ctrl f鍵，將查詢和替換功能調出來。3 然後在查詢內容方框裡面輸入一個空格，替換方框裡面輸入數字0。4 輸入完畢之後，點選下方的全部替換。5 這樣就可以將將空值替換為0，如圖，替換成功之後，會彈出如下的視窗。選中要替換的區...
excel中批量轉置問題，如何將excel裡的資訊批量轉置，有大量資料
用vba解決，必須的。不知道你的原資料所在表的表名，假定在sheet1，轉換後到sheet2。還有，看不到你轉換後的表頭，品類 猜出來了，後一個是 資料 嗎？看一下，是你需要的效果嗎？開啟vb編輯器 插入模組 將以下 貼上進去 執行。sub 轉換 for i 2 to sheet1.usedrang...