excel中怎么用宏代码实现：Sheet1中A单元格 与Sheet2中A对比，如有相同则将Sheet2中A替换为对应的Sheet

Question

条件：Sheet1中A1:A5所有单元格数字不连续（例101、102、104、106、107），B1:B5为连续数字（例101、102、103、104、105）；Sheet2中A1:A20均为101，A21:A30均为102，A31:A50均为104....
excel中怎么用宏代码实现：Sheet1中A单元格 与Sheet2中A对比，如有相同则将Sheet2中A替换为对应的Sheet1中B1:B5连续数字，
不知我说清楚了没有，请各位指教一下，不胜感激！可以的话最好加QQ：43132514

Answer 1

Sub Macro1()
'
' Macro1 Macro
'
'
Range("B1:B50").Select
ActiveWindow.LargeScroll Down:=-1
Selection.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet1!R1C1:R5C2,2,FALSE)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:A50").Select
ActiveSheet.Paste
Columns("B:B").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Answer 2

Sub test()
Sheets("sheet2").Select
With Sheets("sheet1")
For r = 1 To 5
Columns(1).Replace .Cells(r, 1), .Cells(r, 2), xlWhole
Next
End With
End Sub

Answer 3

dim i as .......
if sheets(1).cells(i,1).value = sheets(2).cells(i,1).value then
Sheets(2).cells(i,10.value = Sheets(1).cells(i,1).value
endif
这样似乎没什么意义，只有根据你的实际数据才能写出来，可能的话发[email protected]
明天或者后天出差去远处，可能一天都在路上，急的话就不要发了，个人承诺，会在有条件的第一时间处理你的问题

Answer 4

Sheet1中A（）单元格 与Sheet2中A（）对比，如有相同则将Sheet2中A（）替换为对应的，
先把这几个空填写了吧