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

[µo°Ý] ¦p¦ó¥ÎVB MACRO¥hÂàÄæ¦ìªº®æ¦¡©O??

[µo°Ý] ¦p¦ó¥ÎVB MACRO¥hÂàÄæ¦ìªº®æ¦¡©O??

¦U¦ì¤j®v¡A

§Ú¤w¸g¥i¥H¥ÎEXCEL VB±qÃÒ¥æ©Ò©Ô¦^¨C­Ó¤ëªº¸ê®Æ
¦ý¬Oµo¥Í¤@­Ó°ÝÃD¬O¤é´Áªº³¡¤À®æ¦¡¤£¥¿½T,ª½±µ¥ÎEXCEL¤]µLªk§â®æ¦¡Âন¤é´Á¡A¸Ó«ç»ò¿ì©O??
1.
¥i¥Hª½±µ¥ÎVBÂন¤é´Áªº®æ¦¡¶Ü??
2.
ÁÙ¦³¦p¦ó±N¨â­ÓSHEET¦X¦¨¤@­Ó
¨C¤@­ÓSHEETªºÁ`Äæ¼Æ¤£·|©T©w

ÁÂÁÂÅo~~

data.rar (12.82 KB)

DATA

¦^´_ 1# marson
¨Ì§AªºªþÀÉ»s§@
  1. Option Explicit
  2. Sub Ex()
  3.     Dim SH As Worksheet
  4.     Sheets("SHEET3").Cells.Clear
  5.     Sheets("10").Rows(1).Copy Sheets("SHEET3").[A1]
  6.     For Each SH In Sheets(Array("10", "11"))
  7.         With SH.Range("A2", SH.[A2].End(xlDown))
  8.             .Replace Split(.Cells(1), "/")(0), Val(Split(.Cells(1), "/")(0)) + 1911
  9.             .EntireRow.Copy Sheets("SHEET3").Cells(Rows.Count, "A").End(xlUp).Offset(1)
  10.         End With
  11.     Next
  12. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂGBKEE¤j®v
­ì¨Óµ{¦¡¥i¥H¼g³o»ò²³æ

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD