- ©«¤l
- 72
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 88
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-6-28
- ³Ì«áµn¿ý
- 2018-11-14
|
¦^´_ 45# stillfish00
S¤j~~~¥i¥H¦A½Ð±Ð¤@¤U³o¤@¬q¬O¦b´yz¬Æ»ò°Ê§@¶Ü~
Application.ScreenUpdating = False
With Workbooks.Open(f) ³oÀ³¸Ó¬O«ü·s¶}ªº¸ê®ÆÀɶÜ?
With .Sheets(1)
ar = .Range("A5:H" & .[A5].CurrentRegion.Rows.Count).Value ³o¥y¤£À´¬Æ»ò·N«ä
End With
.Close False
End With
Application.ScreenUpdating = True
r = UBound(ar)
With Workbooks.Add
With .Sheets(1)
For i = LBound(cIndexOld) To UBound(cIndexOld)
.Cells(1, cIndexNew(i)).Resize(r).Value = Application.WorksheetFunction.Index(ar, 0, cIndexOld(i))
.Cells(1, cIndexNew(i)).Value = arNewHeader(i)
Next
End With |
|