- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
Sub sample()
Dim LastRec As Integer
Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim data() As Range
l = 1
Worksheets("Sheet1").Range("A1").Select
ActiveCell.End(xlDown).Select
LastRec = ActiveCell.Row
For j = 1 To LastRec
i = Application.Match(Sheet1.Cells(1, j), "='C:\Users\Desktop\[1.xlsx]Sheet1'!.Range("A:A"), 0)
If Sheet1.Cells(i, 2).Value <> Sheet2.Cells(i, 2).Value Then
Sheet1.Cells(i, 2).Value = Sheet2.Cells(i, 2).Value
Sheet1.Cells(i, 2).Interior.Color = RGB(255, 200, 255)
End If
Next j
End Sub
½Ð°Ýi = Application.Match(Sheet1.Cells(1, j), "='C:\Users\Desktop\[1.xlsx]Sheet1'!.Range("A:A"), 0)³o¥yþ¸Ì¥X¿ù¡H§Ú·Q¦b¤@Óexcel¤º§ä¥X®à±ªº¥t¤@Ó¡]1.xlsx) excel¤º¬Û¦Pªº¦WºÙ¡A¦pªG¥L̪ºÈ¤£¦P´N§ï¦¨¥t¤@Ó¡]1.xlsx) excel¤ºªºÈ |
|