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

¦p¦ó¥Ñ¬YÄæ¸õ¨ì§OÄæ,¦A¦^¨ì­ìÄæ?

¦p¦ó¥Ñ¬YÄæ¸õ¨ì§OÄæ,¦A¦^¨ì­ìÄæ?

°²³]­ì©w¦ì¸m¬OA5,µM«á¸õ¨ì¦P¦CªºDÄæ,§YD5,
·í°µ§¹¤@¨Ç°Ê§@«á,¦ì¸mÅܦ¨D18,·Q¸õ¦^¸Ó¦CªºAÄæ,§YA18,
¦³¥i¯à³o¼Ë¼g¶Ü?ÁÂÁ¤F!!:)

¦^´_ 1# leehom

ÃD·N¤£°÷²M´·¡A­Y¦³¹Ï»¡©ÎªÌªþ¥ó·|§ó¦n¡A¤£µM¤]¥u¯à¥Î²qªº¡C

§Ú¥u¯à¥ý°²³]§Aªº¦ì¸m©w¸q¬O"±Ò¥Î"ªºÀx¦s®æ¡A°Ñ¦Ò¬Ý¬Ý§a¡C

Cells(ActiveCell.Row, "A").Activate

TOP

¦^´_ 1# leehom

¸Û¦p2¼Ó©Ò»¡ªº¡AÃD·N¤£²M´·
§AÀ³¸Ó¦h¬ÝVBE¤¤ªºRangeªº»¡©ú©Î¬O³o½×¾Â¤¤ªº¤å³¹¡A
¦]¬°§A©Ò°Ýªº¡A³£¬O³Ì°ò¦ªºª¾ÃÑRange¡BCells¡BRow¡BColumn¥u­n·d²M·¡³o´X­Ó§Aªº°ÝÃD´N¥i¥HÀH·N¹B¥Î¤F
Range¡G½d³ò¡A³æ¤@Àx¦s®æ¥H¤W¬Û¾FªºÀx¦s®æ¼g¦¨Range("A1:A10")©Î²ºÙ[A1:A10]¨ä»yªk·N«ä¬°¡A±qA1¨ìA10
Cells¡GÀx¦s®æ©Î³æ¤¸®æ¡A´N¬O³æ¤@­ÓÀx¦s®æ©Î¥Nªí¤u§@ªí©Ò¦³Àx¦s®æ¡A³æ¤@Àx¦s®æ¼gªk ¥HB1Àx¦s®æ¨Ó»¡©ú ¡A¼gªk¬°Cells(1,2)·N«ä´NCells(¦C1,Äæ2)ªº·N«ä¡A©Ò¦³Àx¦s®æ«h¥u¼g¦¨ Worksheet.Cells
Row¡G¦C¸¹¡A­þ¤@¦Cªº·N«ä
Column¡GÄ渹¡A­þ¤@Äæ
¥H¤W»¡©ú¡A¥u¬O²³æ´y­z¡A¨Ã¤£¯à°÷¥Nªí©Ò¦³·N«ä¡A¸Ô²Ó»¡©ú¡AÀ³¥HVBE»¡©ú¬°¥D
¤U­±¥N½X¥u¬O¸ÑÄÀ§Aªº°ÝÃDªº´y­z ªº°ò¦»yªk¡A¨ä¹ê»Ú¼gªk¤´­n¬Ý§Aªº°µ¥Î­Ë©³¬O¤°»ò¦Ó©w¡G
Dim Ran As Range
Set Ran = Range("A5") '°²³]­ì©w¦ì¸m¬OA5¡AA5³]¦¨ÅÜ¼Æ Ran
Cells(Ran.Row, "D").Select 'µM«á¸õ¨ì¦P¦CªºDÄæ,§YD5¡A³o¸Ì¤£ª¾¹D§A­n°µ¤°»ò¨Æ¡A©Ò¥H¥u¦³¥ÎSelect¿ï¾Ü D5¡A­Y¬O­n¼g­È¥i¥H¼g¦¨ Cells(Ran.Row, "D")="ABC"
Cells(18, "D").Select '·í°µ§¹¤@¨Ç°Ê§@«á , ¦ì¸mÅܦ¨D18 ¡A¦P¤W¦C»¡©ú
Cells(18, Ran.Column).Select '¸õ¦^¸Ó¦CªºAÄæ,§YA18

TOP

¦^´_ 3# lpk187

·PÁ¼ӤW¨â¦ìªº¼ö¤ß¸Ñµª,¨ä¹ê§Ú¬O·Q³o¼Ëªº



¦p¤W¹Ï©Ò¨£,DÄ檺¸ê®Æ¨ìD395,§Ú·QA,B,CÄæ¯à¦Û°Ê¦V¤U½Æ»s,AÄæ¥ÑA388½Æ»s30-Oct¨ìA395,BÄæ¥Ñ B389½Æ»s12:37¨ìB395,CÄæ¤]¬O¤@¼Ë!³o¼Ë´N¯à¶ñº¡ªÅ¥Õ¡C

¤ñ¦pB381,§Ú¥i¥H¥ý½Æ»s10:43,µM«á§Q¥ÎRange(Selection, Selection.End(xlDown)).Select«ü¥O¨ìB389¦A©¹¤W½Æ»s¥H¶ñº¡, ¦ýB389¤§«á,¦]¤U­±¦A¨S¦³¸ê®Æ,¦A©¹¤U´N¬O¥½ºÝ¤F,©Ò¥H·Q¨ì¸õ¨ìDÄæ,µM«á§ä³Ì«á¤@¦C§YD395,µM«á¦A§Q¥Î«ü¥O¦^¨ì¸Ó¦CªºBÄæ,§YB395,´N¥i¥H©¹¤W½Æ»s¤F¡C¦]¬°¤£À´¤ÓÁ}¨¯½Æ»sªº¼gªk,´N·Q¨ì³o»ò¤@¨B¤@¨B¨Ó¼g¤F,©ÎªÌ¦³¬Æ»ò§ó¦nªº¤èªk?½Ð«ü±Ð,ÁÂÁ¤F!!

TOP

¦^´_ 4# leehom



¹Ï¤ù³Æ¥÷

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2015-11-1 17:26 ½s¿è

¦^´_ 5# leehom


ª¾¹D§A­n·F³Â¤F¡A³o¬qµ{¦¡½X¸Õ¬Ý¬Ý§a¡A

¨ä¹ê³o­Ó¥Î¤â°Ê´N¥i¥H°µªº¨ì¤F¡A¬D¿ï¯S®íÀx¦s®æ(ªÅ®æ)¡AµM«á¿é¤J¤½¦¡=¤W¤@­ÓÀx¦s®æ¡A¦A«öCTRL+ENTER
  1. Sub ¦V¤U¶ñº¡()
  2. [D381].CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
  3. With [D381].CurrentRegion
  4.   .Copy
  5.   .PasteSpecial Paste:=xlPasteValues
  6. End With
  7. [A1].Select
  8. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2015-11-1 17:50 ½s¿è

¦^´_ 5# leehom

¤â°Êªº¤è¦¡§Ú¥Î¹Ï¥Ü»¡©ú¡A§A¥i¥H¥Î¿ýªº¦A¬Ýµ{¦¡½X¡AÀ³¸Ó¸ò§Ú¼gªº®t¤£¦h

step1:ÂI¿ï¸ê®Æ½d³ò¥ô¤@®æ¡A«ö ctrl+A¡A·|¿ï¨ú¾ã­Ó¸ê®Æ½d³ò





step2:¦A¿ï¨úªº½d³ò¤¤¦A¬D¿ï¯S®í¥Ø¼Ð(Àx¦s®æ)





step3:¬Ý±Ò¥Î¤¤ªºÀx¦s®æ¬O­þ¤@®æ¡A¿é¤Jµ¥©ó¤W­±¨º®æªº¦ì¸m



step4:«ö¤UCtrl+Enter(©Ò¦³¿ï¨úªºÀx¦s®æ³£¶ñ¤J¤½¦¡)¡A­Y¥u«öEnter«h¥u¦³±Ò¥Î¤¤ªº¨º¤@­ÓÀx¦s®æ¦³¤½¦¡



step5:³Ì«áÂI¿ï¸ê®Æ½d³ò¥ô¤@®æ«öCtrl+A (¥þ¿ï)> Ctrl+C(½Æ»s)  > ·Æ¹«¥kÁä >¿ï¾Ü©Ê¶K¤W > ­È

¦¹¨BÆJ¥u¬O¥h±¼¤½¦¡¡C

TOP

¦^´_ 7# n7822123

ÁÂÁ°Ú,¦ý¤â°Ê¨º­Ó¤£ª¾¹D¬°¬Æ»ò«öCTRL+ENTER¨S¦³¤ÏÀ³? :o

TOP

¦^´_ 8# leehom


    ¿é¤J§¹¤½¦¡¤§«á¡A¤£­nÂ÷¶}¿é¤JªºÀx¦s®æ¡A¦A«öCtrl+Enter

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD