1樓：匿名使用者
當然可以
with 表2『表名更具實際情況
for x1= 3 to 30'根據實際
a1=.cells(x1,1)
with 表1『表名更具實際情況
for x2 = 3 to 30'根據實際a2=.cells(x2,1)
if a1=a2 then
'新增複製資料**
exit for
end if
next
end with
next
end with
2樓：匿名使用者
假設第乙個是左起第乙個表，第二個是左起第二個表sub 匹配()
dim arr, d as object, brr, i, jarr = sheets(1).range("a2:i30")set d = createobject("scripting.
dictionary")
for i = 1 to ubound(arr)for j = 1 to ubound(arr, 2)d(arr(i, 1) & "-" & arr(1, j)) = arr(i, j)
next
next
brr = sheets(2).range("a2:k30")for i = 2 to ubound(brr)for j = 5 to ubound(brr, 2)brr(i, j) = d(brr(i, 1) & "-" & brr(1, j))
next
next
sheets(2).range("a24:i41") = brrend sub
3樓：匿名使用者
如果no.不重複,可以用vlookup
b3=vlookup($a2,sheet1!$a:$h,column(),)
向右向下填充
4樓：小xx寶
不太明白 掃噶
excel用vba如何實現動態錄入後，另存在另乙個表，每次記錄按順序累計儲存在一張表內。
5樓：匿名使用者
朋友 你這個很好弄的 留個****
我可以幫你做個
6樓：匿名使用者
****？
發個模板給你試試
vba excel中如何使用巨集將乙個工作表中符合條件的某部分資料複製放在另乙個工作表？
7樓：
以下**，資料在sheet1的a到d列，表頭在第二行
取前三個複製到h列
set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.
oledb.4.0;extended properties=excel 8.
0;data source=" & thisworkbook.fullname
sql = "select top 3 * from [sheet1$a2:d] order by 銷量 desc"
[h3].copyfromrecordset conn.execute(sql)
conn.close: set conn = nothing
[a2:d2].copy [h2]
EXCEL VBA批量替換單元格內容
如果我只要替換one的內容，其他內容保持不變，該怎樣來寫？辦法如下，先找個英語翻譯的庫，你自己做成適當的資料庫，英文與中文各為乙個資料字段 用vba查詢資料庫，找到對應的，把對應的中文寫進去，比如 在範圍 a1 d100 把下面 拷貝到後台巨集，按f5執行就okpublic sub test for...
excel如何實現批量替換功能，在Excel中如何對應批量替換資料？
ctrl h 查詢內容 輸入 m2 替換為 輸入 m 備註 上標2輸入方法如下 按下alt鍵，先後按下小鍵盤上的178數字鍵 全部替換 插入，特殊符號，單位符號裡找到 插入後複製 編輯，替換，查詢m2，替換為 符號，貼上上去 全部替換，即可 建議 那個 平方公尺的 不要簡單用上標的 形式來表達，而是...
EXCEL如何利用VBA實現批量欄位的替換？
option explicit sub 轉換 dim dict,arr,i,j,kdict sheets 1 usedrange 字典關係表。arr sheets 2 usedrange 需要轉換的表。for i 2 to ubound arr for j 3 to 5 for k 1 to ubo...