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

[µo°Ý] ¨D§U¦U¦ì°ª¤â¤j¤j¡A½Ð°Ý¦p¦ó¦X¨Ö¾ã­¶ªºÄæ»P¬Û¦P¦C ?

[µo°Ý] ¨D§U¦U¦ì°ª¤â¤j¤j¡A½Ð°Ý¦p¦ó¦X¨Ö¾ã­¶ªºÄæ»P¬Û¦P¦C ?

¨D§U¦U¦ì°ª¤â¤j¤j¡A½Ð°Ý¦p¦ó¦X¨Ö¾ã­¶ªºÄæ»P¬Û¦P¦C ? ¸Ô¨£ªþ¥ó
ÁÂÁ¡I

Question.zip (251.52 KB)

ªþ¥ó

¤Ñ¥Í§Ú§÷¥²¦³¥Î¡A¤dª÷´²ºÉÁÙ´_¨Ó

¸Õ¸ÕVBA¦æ¤£¦æ¥Î¡I
¡@
  1. Sub TEST()
  2. Dim xR As Range
  3. Application.ScreenUpdating = False
  4. With ActiveSheet.UsedRange
  5. ¡@¡@¡@For Each xR In .Cells(2, 3).Resize(.Rows.Count - 1, .Columns.Count - 2)
  6. ¡@¡@¡@¡@¡@If Len(xR) = 1 Then xR = Cells(xR.Row, 1) & xR¡@'§PÂ_¤èªk¢°¡GÀx¦s®æ¥u¦³³æ¤@¦r¤¸
  7. ¡@¡@¡@¡@¡@'If xR Like "[A-Z]" Then xR = Cells(xR.Row, 1) & xR¡@'§PÂ_¤èªk¢±¡GÀx¦s®æ¬°¤@­Ó¡e­^¤å¤j¼g¡f¦r¤¸
  8. ¡@¡@¡@Next
  9. End With
  10. End Sub
½Æ»s¥N½X

TOP

¦hÁ¤j¤jªºÀ°¦£¡A·P®¦ !
¤Ñ¥Í§Ú§÷¥²¦³¥Î¡A¤dª÷´²ºÉÁÙ´_¨Ó

TOP

¨º»ò­YB Ä椧«áªºÀx¦s®æ¬°¤G­Ó¡e­^¤å¤j¼g¡f¦r¤¸¤SÀ³¸Ó«ç¼Ë­×§ï©O¡H
ÁÂÁ¡I
¤Ñ¥Í§Ú§÷¥²¦³¥Î¡A¤dª÷´²ºÉÁÙ´_¨Ó

TOP

¦^´_ 4# letugo


If Len(xR) = 2 Then xR = Cells(xR.Row, 1) & xR¡@
©Î¡G
If xR Like "[A-Z][A-Z]" Then xR = Cells(xR.Row, 1) & xR

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD