[µo°Ý] CELLS(1,1)©M .[a1]ªº°ÝÃD.

dou10801

½Ð±Ð¦U¦ì¥ý¶i,CELLS(1,1)©M .[a1]ªº°Ï§O,¦pªþ¥ó(COPY ).¬°¦ó¥Îcells()¬Oªí¥Ü=¤u§@ªí1,¬°¦ó.[a1]=¤u§@ªí2,·P®¦.

linyancheng

¦^´_ 3# quickfixer

­Ë¬O¨Sª`·N¹L³t«×°ÝÃD¡A
¤£¹L³£¥Îcells(), ¦]¬°¤£¥Îºâ²Ä´XÄæ¨ì©³¬O­þ­Ó­^¤å¦r¥À¡AÁÙ¦³cells()¥i¥H¥N¤J¹Bºâ¦¡¡A[A1]³Â·Ð¡C
³sRange("1:1,3:3")³oºØ³£´X¥G¤£¥Î¡A·|¥Îunion(columns(1),columns(3))

dou10801

¦^´_ 3# quickfixer À´¤F­ì²z¥B¤F¸Ñ[]ªº¥Î³~¤Î³t«×®t²§,·P«ä.

dou10801

¦^´_ 2# ML089 ·PÁÂML089ª©¥D«üÂI,­ì¥ý¦]CELLS()¥]¦b[WITH--¤u§@ªí2]¸Ì­±,¤£ª¾¹ïÀ³¨º­Ó¤u§@ªí,²{¦bÀ´¤F,·P®¦.

ML089

¦^´_ 3# quickfixer

«ü¥O                °õ¦æ ¬í                   ­¿¼Æ
Ūcells(1,1)=        0.17578125       
Ū[a1]=                2.4765625          14.09
¼gcells(1,1)=        2.26953125       
¼g[a1]=                5.5078125          2.43
°õ¦æ 99999¦¸

Ūªº®Ä²v®t«Ü¦h¡A·PÁ´£¿ô

quickfixer

¦^´_ 1# dou10801


    ÁÙ¦³¤@ºØ¤£¦P,2­Ó¼gªk³t«×®t¶W«Ü¦hªº
¦b¾Ç²ß¦U¦ì°ª¤âªºµ{¦¡½Xµo²{,01ªº¤å³¹³£¥Îcell()¤ñ¸û¦h,³o¸Ì¤j®a³£·R¥Î[]
¥Î[]¥u¬Oµ{¦¡½Xº}«G,¤£ºÞ¼g¤JÁÙ¬OŪ¨ú³£ºC
¯u·d¤£À´¬°¤°»ò¤j®a³£·R¥ÎºCªº:(

¸Õ¸Õ¬Ý,+rnd(),¬OÁקK§Ö¨ú¼vÅTµ²ªG
Sub Ū()

Dim rr As Double
Dim s As Double
Dim cc As Double

Range("a1") = 1

s = Timer
For rr = 1 To 99999
   cc = Cells(1, 1) + Rnd(Timer)
Next rr

MsgBox "Ūcells(1,1)=" & Timer - s

s = Timer
For rr = 1 To 99999
  cc = [a1] + Rnd(Timer)
Next rr
MsgBox "Ū[a1]=" & Timer - s


End Sub


Sub ¼g()

Dim rr As Double
Dim s As Double

Application.ScreenUpdating = False
s = Timer
For rr = 1 To 99999
   Cells(1, 1) = rr + Rnd(Timer)
Next rr
Application.ScreenUpdating = True

MsgBox "¼gcells(1,1)=" & Timer - s

Application.ScreenUpdating = False
s = Timer
For rr = 1 To 99999
   [a1] = rr + Rnd(Timer)
Next rr
Application.ScreenUpdating = True
MsgBox "¼g[a1]=" & Timer - s


End Sub

ML089

¬°¦ó¥Îcells()¬Oªí¥Ü=¤u§@ªí1,
¦b ¤u§@ªí1 °õ¦æµ{¦¡¡A¤u§@ªí1 ¬°±Ò¥Îª¬ºA¡A©Ò¥H CELLS()¬°¤u§@ªí1
§A¥i¥H¸Õ¸Õ¶}±Ò ¤u§@ªí3¡AA1:A20 ¿é¤J¨ä¥L¸ê®Æ¡A«ö ALT-F11 ¦b°õ¦æµ{¦¡¡ACELLS()¬°¤u§@ªí3

¬°¦ó.[a1]=¤u§@ªí2
¦]¬° With Sheets("¤u§@ªí2") ... End With ¸Ì­±¥H .¶}ÀYªºÀx¦s®æ³]©w¬°¤u§@ªí2