¦p¦ó¥i¥HÅý¤£¬O"JPM"¤£Åã¥Ü¥X¨Ó¡A¤]¤£·|¯d¤@¦æªÅ®æ¡H
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 96
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-4-25
|
¦^´_ 11# 198188 - Sub nn()
- Dim Ay(), Rng As Range, m$, A As Range, r&, Ar
- With Sheets("Sheet1") '§ï¦¨¥¿½T¤u§@ªí¦WºÙ
- If Application.CountIf(.Range("B:B"), "JPM") > 0 Then '§PÂ_BÄæ¬O§_¦³JPM
- .Range("B:B").Replace "JPM", "=1/0", xlWhole '±NJPM¥H¤½¦¡¨ú¥N
- Set Rng = .Range("B:B").SpecialCells(xlCellTypeFormulas, 16) '±N¤½¦¡¬°¿ù»~ȪºÀx¦s®æ³]¬°ÅܼÆ
- Rng.Value = "JPM" '±N¤½¦¡ÁÙ즨JPM
- For Each A In Rng
- r = A.Row
- m = .Cells(r, "U") & "¡B" & .Cells(r, "V") & "¡B" & .Cells(r, "W")
- Ar = Array(.Cells(r, "S").Value, .Cells(r, "T").Value, .Cells(r, "C").Value, .Cells(r, "AA").Value, .Cells(r, "D").Value, .Cells(r, "AB").Value, _
- .Cells(r, "AC").Value, .Cells(r, "AD").Value, .Cells(r, "AE").Value, .Cells(r, "AF").Value, .Cells(r, "F").Value, m, .Cells(r, "X").Value, .Cells(r, "Y").Value, .Cells(r, "Z").Value)
- ReDim Preserve Ay(s)
- Ay(s) = Ar
- s = s + 1
- Next
- Sheets("JPM").UsedRange.Offset(1).Clear '±NJPM¤u§@ªí¤º®e²MªÅ
- If s > 0 Then Sheets("JPM").[A2].Resize(s, UBound(Ar) + 1) = Application.Transpose(Application.Transpose(Ay)) '±N°}¦C¼g¨ìJPM¤u§@ªí
- End If
- End With
- End Sub
½Æ»s¥N½X Match¨ç¼Æ¦pªG§ä¤£¨ì²Å¦X¸ê®Æ´N·|¥X¿ù |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 96
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-4-25
|
¦^´_ 18# 198188
´£°Ý®É½Ð´yz§Aªº»Ý¨D
¥ú±q§Aªºµ{¦¡½X¥h²q§Aªº»Ý¨D·|³y¦¨«Ü¤jªº®t²§
¬Ý¬Ý¬O§_¦X¥G§Aªº»Ý¨D- Sub sample()
- Dim FRng As Range
- Dim A As Range, Rng As Range
- fs = "C:\Documents and Settings\USER\®à±\HK ETA update.xlsx"
- 'fs = ThisWorkbook.Path & "\HK ETA update.xlsx"'¦P¤@¥Ø¿ý®É¨Ï¥Î
- Set wb = Workbooks.Open(fs)
- With ThisWorkbook.Worksheets("2012")
- For Each A In .Range(.[A2], .Range("A1").End(xlDown))
- Set FRng = wb.Sheets("»´ä&®ü¨¾³æ").Range("A:A").Find(A, lookat:=xlWhole)
- If Not FRng Is Nothing Then
- If FRng.Offset(, 11) <> A.Offset(, 3) Then
- A.Offset(, 3) = FRng.Offset(, 11).Value 'Åý2012ªºDÄæµ¥©ó»´ä&®ü¨¾³æªºLÄæ
- If Rng Is Nothing Then Set Rng = A.Offset(, 3) Else Set Rng = Union(Rng, A.Offset(, 3))
- End If
- End If
- Set FRng = Nothing
- Next
- If Not Rng Is Nothing Then Rng.Interior.Color = RGB(255, 200, 255)
- End With
- wb.Close 0
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|