ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §Q¥Î¤@­Ó¥¨¶°¡A½Æ»sAÀɮרìBÀÉ®×°ÝÃD

¦^´_ 1# v03586
  1. '°²³]AÀɮ׬°µ{¦¡©Ò¦bÀÉ
  2. Public Sub ex()
  3.     Dim Bk As Workbook, ASh As Worksheet
  4.     Dim ARng As Range, BRng As Range
  5.     mPath = ThisWorkbook.Path & "\" '³]©w¸ô®|¬°©MAÀɮצP¸ô®|
  6.     mData = "BÀÉ®×.xlsx" '³]©wBÀɮתº§¹¾ã¦WºÙ
  7.     Set ASh = ThisWorkbook.Worksheets("FMC") '³]©wASh¬OAÀɮתºFMC¤u§@ªíª«¥ó
  8.     Set Bk = Workbooks.Open(mPath & mData) '³]©wBK¬OBÀɮת«¥ó¡A¤Î¥´¶}BÀɮסC¦b³o«e´£¤UBÀÉ®×¥²¶·¬OÃö³¬ªº±¡ªp¤U¡A­Y¤w¸g¥´B¶}ÀÉ®×·|¥X¿ù¡A½ÐÃöB³¬ÀÉ®×
  9.     With Bk.Sheets("FMC") '±N¦bBÀɮתºFMC¤u§@ªí°õ¦æ¤@¨t¦Cªº³¯­z¦¡¡A°²³]"FMC"¬°¤u§@ªí¦W
  10.         For Each ARng In ASh.Range("B7:B" & ASh.Cells(65535, 2).End(xlUp).Row) 'ARng¬°AÀÉ®×.Worksheets("FMC")ªºBÄæ
  11.             For Each BRng In .Range("B7:B" & .Cells(65535, 2).End(xlUp).Row) ''BRng¬°BÀÉ®×.Worksheets("FMC")ªºBÄæ
  12.                 If ARng.Value = BRng.Value Then
  13.                     BRng.Offset(, 1) = ARng.Offset(, 1) 'CÄæ
  14.                     BRng.Offset(, 2) = ARng.Offset(, 2) 'DÄæ
  15.                     BRng.Offset(, 4) = ARng.Offset(, 4) 'FÄæ
  16.                     BRng.Offset(, 5) = ARng.Offset(, 5) 'GÄæ
  17.                 End If
  18.             Next
  19.         Next
  20.         Bk.Close True 'Ãö³¬BÀÉ®×
  21.     End With
  22. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-10-24 12:34 ½s¿è

¦^´_ 1# v03586


    ­è¨S¬Ý¨ìCÀɮ׬°VBAµ{¦¡©Ò¦bÀÉ ¦A¸ê­×§ï¦p¤U¡G
  1. Public Sub ex()
  2.     Dim bSh As Worksheet, aSh As Worksheet
  3.     Dim ARng As Range, BRng As Range
  4.     mPath = ThisWorkbook.Path & "\" '³]©w¸ô®|¬°©MCÀɮצP¸ô®|
  5.     bData = "BÀÉ®×.xlsx" '³]©wBÀɮתº§¹¾ã¦WºÙ
  6.     aData = "AÀÉ®×.xlsx" '³]©wAÀɮתº§¹¾ã¦WºÙ
  7.     Set aSh = Workbooks.Open(mPath & aData).Worksheets("FMC") '³]©waSh¬OAÀɮתºFMC¤u§@ªíª«¥ó,¥´¶}AÀÉ®×
  8.     Set bSh = Workbooks.Open(mPath & bData).Worksheets("FMC") '³]©wbSh¬OBÀɮתºFMC¤u§@ªíª«¥ó,¥´¶}BÀÉ®×
  9.         For Each ARng In aSh.Range("B7:B" & aSh.Cells(65535, 2).End(xlUp).Row) 'ARng¬°AÀÉ®×.Worksheets("FMC")ªºBÄæ
  10.             For Each BRng In bSh.Range("B7:B" & bSh.Cells(65535, 2).End(xlUp).Row) ''BRng¬°BÀÉ®×.Worksheets("FMC")ªºBÄæ
  11.                 If ARng.Value = BRng.Value Then
  12.                     BRng.Offset(, 1) = ARng.Offset(, 1) 'CÄæ
  13.                     BRng.Offset(, 2) = ARng.Offset(, 2) 'DÄæ
  14.                     BRng.Offset(, 4) = ARng.Offset(, 4) 'FÄæ
  15.                     BRng.Offset(, 5) = ARng.Offset(, 5) 'GÄæ
  16.                 End If
  17.             Next
  18.         Next
  19.         Workbooks(bData).Close True 'Ãö³¬BÀÉ®×
  20.         Workbooks(aData).Close True 'Ãö³¬AÀÉ®×
  21. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-10-26 09:42 ½s¿è

¦^´_ 7# v03586


    Dim ARng As Range, BRng As Range ³o¸Ì¤w¸g«Å§i¬°Rangeª«¥ó
©Ò¥H¥i¥H§â¦¹ª«¥óªºÄÝ©Ê®³¥X¨Ó¥Î©Ò¥H¥u­n§â
BRng.Offset(, 1) = ARng.Offset(, 1) 'CÄæ
BRng.Offset(, 2) = ARng.Offset(, 2) 'DÄæ
BRng.Offset(, 4) = ARng.Offset(, 4) 'FÄæ
BRng.Offset(, 5) = ARng.Offset(, 5) 'GÄæ
§ï¦¨
  1.                     With BRng.Offset(, 1)
  2.                         .Value = ARng.Offset(, 1) 'CÄæ
  3.                         .ColumnWidth = ARng.Offset(, 1).ColumnWidth
  4.                         .RowHeight = ARng.Offset(, 1).RowHeight
  5.                     End With
  6.                     With BRng.Offset(, 2)
  7.                         .Value = ARng.Offset(, 2) 'DÄæ
  8.                         .ColumnWidth = ARng.Offset(, 2).ColumnWidth
  9.                     End With
  10.                     With BRng.Offset(, 4)
  11.                         .Value = ARng.Offset(, 4) 'FÄæ
  12.                         .ColumnWidth = ARng.Offset(, 4).ColumnWidth
  13.                     End With
  14.                     With BRng.Offset(, 5)
  15.                         .Value = ARng.Offset(, 5) 'GÄæ
  16.                         .ColumnWidth = ARng.Offset(, 5).ColumnWidth
  17.                     End With
½Æ»s¥N½X
´N¥i¥H¡C
¸Ô²ÓªºÄݩʽЦۦæ°Ñ¦ÒVBEªºRange »¡©ú
¤£¹L¡A§Úı±o ³æ¤@Àx¦s®æ½Æ»sÄæ°ª¦C寛ªº¡A¦n¹³¨S¤°»ò·N¸q¡I «e­±ªºÀx¦s®æ¤@©w·|³Q«á­±ªº­×§ï±¼ªº

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD