1樓：姓王的
sub 將兩表均有的資料匯入表3()
dim ra as range, ra2 as range, n&
sheet3.cells.clearcontents
set ra = sheet1.[a65536].end(3)
for each ra in sheet1.range("a1", ra)
set ra2 = sheet2.range("a:a").find(ra, , , 1)
if not ra2 is nothing then
n = n + 1
ra.entirerow.copy sheet3.cells(n, 1)
range(ra2.offset(, 1), ra2.end(2)).copy sheet3.cells(n, 1).end(2).offset(, 1)
end if
next
end sub本**適用於每行的資料多少不一，如果確定表1和表2每行的資料為固定值，**略為簡短。
2樓：匿名使用者
想用巨集**做出來麼？
public sub 查詢()
dim sj '(1 to 3, 1 to 2)
dim sjzz
dim d
dim h as long
dim i as long
dim cxrng as range
set d = createobject("scripting.dictionary")
h = sheets("sheet1").range("a" & rows.count).end(xlup).row
redim sj(1 to h, 1 to 2)
for each cxrng in sheets("sheet1").range("a1:a" & h)
if cxrng.value <> "" then
i = i + 1
d(cxrng.text) = i
sj(i, 1) = cxrng.value
sj(i, 2) = cxrng.offset(0, 1).value
end if
next
redim sjzz(1 to i, 1 to 4)
i = 0
for each cxrng in sheets("sheet2").range("a1:a" & sheets("sheet2").
range("a" & rows.count).end(xlup).
row)
if d.exists(cxrng.text) then
i = i + 1
sjzz(i, 1) = sj(d(cxrng.text), 1)
sjzz(i, 2) = sj(d(cxrng.text), 2)
sjzz(i, 3) = cxrng.offset(0, 2).value
sjzz(i, 4) = cxrng.offset(0, 3).value
end if
next
sheets("sheet3").range("a1").resize(i, 4).value = sjzz
end sub
求高手解答Excel設定問題 工作表的標籤能調整大小嗎
1 更改工作表名稱 點對應工作表，按右鍵，選重新命名，修改工作表名稱後按回車即可。2 移動工作表 鍵鼠左鍵點中對應工作表並拖動到你想放的位置，鬆開左鍵即可。excel怎麼根據標籤大小設定嗎 這個不可以設定。只可以修改工作表標籤名，不能設定大孝字型 顏色等屬性 如圖，excel的問題 頭大 求高手 5...
愛情問題，求高手解答，感情問題，求高手解答
才半年而已嘛.現在開始 就要陽光點.勤快點.沒事找點話說.不過別八卦.呵呵！首先，現如今年齡早已不是問題！何況才半年啊！其次，改變一下自己的形象 髮型 穿著等 讓自己看起來更成熟！更重要的是性情要更穩重！心理成熟 通過她的朋友 或日常 瞭解她的喜好！投其所好！不要操之過急，多找機會去關心她！慢慢來，...
求高手解答問題，地的問題。求高手解答！
您好首先請問您的朋友和那個被打的人上幾年級，具體年齡是多少呢？如果已滿十八週歲，你同學故意打人，即使沒把人打出什麼大問題，最輕也要構成民事上的侵權，也就是普通的賠錢。鑑於你同學和他發生衝突，且被人打了，被打的人有明顯過錯在先，而且，對於校園糾紛，老師有調解的義務，可是老師卻沒有盡到這種義務，因此老師...