cliftofghk4s6@outlook.com

印度語口譯 'Select 有選擇 或 點選的意思
ActiveWorkbook.Worksheets("搜索表").Select
'變數LA = "搜尋表" 工作表,的 單格 C500000 到 C500000 最上方邊沿,的全列所有資料
'變數LB = "新下載資料" 工作表翻譯社的 單格 C500000 到 C500000 最上方邊沿,的全列所有資料
希望高手指點~ >"<
會複製 工作表B 的 第4筆資料翻譯社貼到 工作表A 的 第4筆資料(第4列的意思)
今朝問題卡在 當華頓翻譯公司履行的時候

'若 單格(k,2),的 值 = 空值
Rows(i).Select
'選擇 列(i)
PS:半自動就是手動選擇欲履行的巨集
功能今朝有:
做這個VBA巨集的原由...
附上工作表B(示意圖):
'如有吻合 就跳出迴圈 讓下一筆(i+1) 與 (k) 從頭查對
'若沒有吻合 就將(i) 與 下一筆(k+1) 繼續核對
'若(i) 與 全部 "搜索表"工作表 的資料(k=2...LA) 都不吻合,就將 該列(i) 複製 貼到 列(k)=空值 的處所

'貼上後,(i+1) 最先 繼續 查對翻譯社直到 (i)=LB 為止
'整個巨集的意思就是,將 "新下載資料"工作表 第一筆資料(i) 與 "搜索表"工作表 第一筆資料(k) 做 查對
'變數i+1,繼續履行迴圈,直到 i=LB 終止 (通常會省略Next i中的i)
'變數i+1,繼續履行迴圈,直到 i=LA 終止 (每每會省略Next i中的i)


用Excel VBA建構一套搜索系統...
For k = 2 To LA

'則 跳出 當前迴圈(For i)

就會複製 工作表B 的資料到 工作表A 的最下方空白處
但花了很多時間和查了良多資料,並沒有找到一個適合的解決方案或是庖代的方案...
LB = Worksheets("新下載資料").Range("C500000").End(xlUp).Row
'因為是照順序核對翻譯社所以會貼到由上至下的第一個空格處

'結束迴圈 (If->End If是一個完整的迴圈,1個完整的條件式動作)
End If
是因為主管要求要在公司的網路磁碟機裡翻譯社
1. 半自動抓取指定資料夾的所有檔案(B欄)
2. 半主動將抓取後的檔案翻譯社超貫穿連接到該檔案(C欄)
3. 純手動複製檔案裡文字的部份,貼到工作表中(D欄)
4. 半主動抓取新增資料夾的檔案(工作表B),並與舊資料(工作表A)查對翻譯社若A沒有,就將A貼到B的最下方空白處
5. 搜尋樞紐字,可將包括關鍵字的檔案列表,後面還標示該檔案包括的文字內容(也會搜索內容),功能近似Google蒐尋器
今朝梗概是這樣...
'若 單格(i,2),的 值 = 空值

'選擇 單格 (i,2)
Cells(i翻譯社 2).Select
'Sheets = 所有活頁簿 但又指定 "新下載資料" 所以 Sheets("新下載資料") 跟 Worksheets("新下載資料") 是統一個意思
此案以Excel VBA將 工作表B(新下載資料) 與 工作表A(搜尋表) 做查對
附上VBA巨集:

ActiveWorkbook.Worksheets("新下載資料").Select

'選擇 當前的活頁簿,的 "搜索表" 工作表

'宣佈 變數k 屬於 Long這個類型的資料,宣佈 變數i 屬於 Long這個類型的資料
LA = Worksheets("搜尋表").Range("C500000").End(xlUp).Row
For i = 2 To LB
'反複履行 陣列i 且 i=2到LB 的所有格數
Sheets("新下載資料").Select

不是我要的結果...
若 工作表A 沒有 工作表B 的資料
Rows(i).Copy
Sheets("搜索表").Select
'選擇 "搜索表" 工作表
(如果我或後人寫得出來的話)
將來可能還會:
Next
End Sub
由於是新手

Next

附上工作表A(示意圖):




1. 統計那些樞紐字比較多人查詢
2. 那些檔案經常被調閱
3. 誰經常在利用搜索器

If Cells(i, 2).Value = "" Then Exit For

創作者介紹

cliftofghk4s6

cliftofghk4s6@outlook.com