1樓：匿名使用者
增加乙個activex按鈕，假設兩張表表名分別為sheet1與sheet2，vba**如下
option explicit
private sub ***mandbutton1_click()
dim endrow1, endrow2 as long
dim i, j as long
dim s as string
'獲取2個**的末行
endrow1 = worksheets("sheet1").cells(rows.count, 1).end(xlup).row
endrow2 = worksheets("sheet2").cells(rows.count, 1).end(xlup).row
for i = 1 to endrow1
s = ""
for j = 1 to endrow2
if str***p(worksheets("sheet1").cells(i, 1).value, worksheets("sheet2").
cells(j, 1).value, vbtext***pare) = 0 then
s = s & worksheets("sheet2").cells(j, 2).value & ";"
end if
next j
if str***p(s, "", vbbinary***pare) = 0 then
worksheets("sheet1").cells(i, 2).value = "無值"
else
s = mid(s, 1, len(s) - 1)
worksheets("sheet1").cells(i, 2).value = s
end if
next i
end sub
2樓：匿名使用者
這個不要用巨集,用函式公式就能解決
假設前乙個表為sheet1工作表,後乙個資料全的表為sheet2工作表
在表1的b1輸入公式 =vlookup(a1,sheet2!a:b,2,0) 下拉複製公式
如果還不明白下面這個鏈結裡學習一下
vlookup：什麼是 vlookup 以及何時使用http://office.
section=3
3樓：匿名使用者
這個直接用vlookup函式就搞定了，為什麼非要用vba處理？
假如你的第二個圖在同乙個工作簿，工作表名為sheet2，那麼在第乙個表的b2公式
=vlookup(a1,sheet2!a:b,2,0)公式下拉完成
4樓：匿名使用者
如果是在同乙個工作簿的兩個工作表中，比如將sheet2中的資料對應填入sheet1中，**如下：
sub abc()
set sh1 = sheets("sheet1")
set sh2 = sheets("sheet2")
for i = 1 to sh1.range("a65536").end(xlup).row
for j = 1 to sh2.range("a65536").end(xlup).row
if sh1.cells(i, 1) = sh2.cells(j, 1) then
sh1.cells(i, 2) = sh2.cells(j, 2)
end if
next
next
end sub
情侶網名，簡單溫馨，求乙個簡單溫馨的情侶網名。謝了。。。。。
深嘆抄 離別歌 淺唱 烟花頌襲 巴黎街頭的bai黎明，艾菲爾塔的du春冬，誰能夠zhi代替你呢 dao 沒有誰能替代你 我是你的假想情人。我是你的 達人。love 專屬 靜靜 love 專屬 城城歲月如歌般淒婉 回憶如詩般纏綿 不求門當戶對 只求感覺到位 我愛了你乙個曾經 我愛了你乙個世紀 個人旳成...
求WOW戰士巨集，求乙個WOW戰士巨集
show combat 攔截 衝鋒 cast stance 1 2,combat 狂暴姿態 stance 3,combat 攔截 stance 2 3,nocombat 戰鬥姿態 stance 1,nocombat 衝鋒 stopcasting 如果你處於戰鬥狀態，這將使你切至狂暴狀態並攔截 如果你...
求excel函式，求乙個excel函式
在f4輸入金額 手續費 if f4 10000,5,if f4 100000,10,if f4 500000,15,if f4 1000000,20,f4 0.02 0.001 如果資料以萬為單位用此公式 min if a1 100,a1 10 4 0.002 lookup a1,200 如果資料以...