1樓：匿名使用者
在查詢工作表中
for i = 1 to [a65536].end(xlup).row
set c = sheet2.range("a1:a65536").find(cells(i,1),,,1)
if not c is nothing thencells(i,2) = c.offset(,1)next i
2樓：抗焮鑲
sub cx()
dim r1, r2, i, j as integerr1 = sheet1.[a65536].end(3).
rowr2 = sheet2.[a65536].end(3).
rowfor i = 1 to r1
for j = 1 to r2
if sheet1.cells(i, 1) = sheet2.cells(j, 1) then
sheet1.cells(i, 2) = sheet2.cells(j, 2)
sheet1.cells(i, 2).selectend if
next j
next i
end sub
3樓：匿名使用者
private sub commandbutton1_click()dim i as integer
for i = 1 to sheets(2).[a65536].end(xlup).row
if cells(1, 1) = sheets(2).cells(i, 1) then
cells(1, 2) = sheets(2).cells(i, 2)
end if
next
end sub
1樓改的
4樓：萊昂納德_尤拉
sub a()
dim i as integer
for i = i to 1000
if cells(1, 1) = sheet2.cells(i, 1) then
cells(1, 2) = sheet2.cells(i, 2)end if
next
end sub
只算一個單元格的，如果在當前表要算個序列的話，再加個迴圈
5樓：匿名使用者
自己錄製巨集 就可以看到
請懂VBA的朋友幫我用VBA在excel裡面編寫個計算器，只要加法的就可以了
private sub worksheet selectionchange byval target as range if f6 then exit sub static temp static w,j r1 target.row c1 target.column if r1 2 and r1 7...
在EXCEL中。用VBA程式編寫
自定義函式如下，請新增到要使用的excel檔案的vba 模組中function iscircletext byval 字串 as string do while len 字串 1if left 字串,1 right 字串,1 then iscircletext no exit function en...
Excel中vba怎麼獲取檔案的固定行資料
剛才試了一下，你說的這種型別的txt好像可以直接用excel開啟，所以我錄了個巨集，改了一下 你可內以試試 sub 提取 set zsht activesheet workbooks.opentext filename d abc.txt set mytxt activeworkbook zsht....