Ãö©ó°ÊºA°}¦Cµ{¦¡½Xªº°ÝÃD

oak0723-1

Sub yy()
Dim rng, arr, i%, j%, k%
With Sheets("1")
rng = .Range(.[c10], .[m83].End(3))
End With
ReDim arr(1 To UBound(rng), 1 To 10)
For i = 1 To UBound(rng)
If rng(i, 11) - rng(i, 10) <> 0 Then
k = k + 1
°ÝÃD >³o¸Ìªºkªº°_©l­È¨Ã¨S¼g...³o¼Ë¨S¦³¼gªºª¬ªp¬O¤£¬O¥Nªík¬O±q0¶}©l
For j = 1 To 6
arr(k, j) = rng(i, j)
Next
arr(k, 8) = rng(i, 8) - rng(i, 6)
arr(k, 9) = arr(k, 8) - arr(k, 6)
arr(k, 10) = rng(i, 11) + rng(i, 10)
End If
Next
Sheets("2").UsedRange = ""
Sheets("2").[a5].Resize(k, 10) = arr
°ÝÃD >³o¸Ìªºk¤£¬O¤w¸g¸õ¥Xfor-next°j°é..¥B¸Ó¦^°é¤]¨S¦³Preserve...¨º¤£¬Ok­È´N¨S°O¾Ð?k¤£´N¬OªÅªº¶Ü?
End Sub

oak0723-1

¤°»ò¬OEmpty
¯uªº¤£¤ÓÀ´
¤p§Ì¥t¥~
¨ú1­Ó¨Ò¤l¦pªþ¥ó
¤À§O¥H¦³Preserve©MµLPreserve¤§ª¬ªp¸Õ¸Õ
°õ¦æªºµ²ªG........«oÅý¤p§Ì§ó¤£©ú¥Õ~~~

oak0723-1

¦^´_ 4# Hsieh


    ½Ð°Ý[j9]©M[j12]©ÒÅã¥Ü¼Æ­Èªº·N¸q¬O?

oak0723-1

¤U¸ü (106.92 KB)

2010-9-9 15:51

¦^´_ 6# Hsieh


¤p§ÌÁÙ¦³­ÓºÃ°Ý
¦b²Ä1­Ó´ú¸Õªº§t¦³Preserveµ{¦¡½X¤¤°õ¦æ«á
¬°¦ó¦b¼Æ­È»P¼Æ­È¶¡ÁÙ·|¥X²{³\¦h³r¸¹?(ªí¥Ü¸ê®Æ¬OªÅªº?)
¨Ò¦p:,a-1,b-1,c-1,,,,,,,,,,,,,,,,a-2,b-2,c-2,,,,,,,
For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1)
        arr(2, r) = a(i, 2)
        arr(3, r) = a(i, 3)
        r = r + 6
Next
¦b¥H¤W³o¬qµ{¦¡½X¤¤...¤£¬O§â°}¦Cªº¨C­Ó¸ê®Æ¦ì¤l³£«ü©w¶ñº¡¤F¶Ü?
¬°¦ó¸ê®Æ»P¸ê®Æ¶¡ÁÙ¦³¨º¦h­Ó³rÂI(¤p§Ìºâ¤F1¤U..¦³16­Ó)

oak0723-1

¦^´_ 8# Hsieh


  ¬°¦ó¦³ªÅªº°}¦CÀx¦s¦ì¸m¬O¦]¬°Åã¥Ü¬O±N¨C­Ó°}¦CÀx¦s¦ì¸m³£Åã¥Ü
¦]¬°r¨C¦¸³£¥[6
©Ò³y¦¨³¡¤ÀÀx¦s¦ì¸mÅã¥Ü¬OªÅªº
¬O³o­Ó·N«ä¶Ü?
¨º¼Æ­È¸ò¼Æ­È¶¡À³¸Ó¦³5*3=15­Ó°}¦CÀx¦s¦ì¸m¬OªÅªºÅo?
©Ò¥H¤~Åã¥Ü16­Ó³r¸¹
¦]¬°¨C2­Ó³r¸¹¶¡¦³1­ÓªÅªº¼Æ­È¦s¦b?
¼K¼K
À´¤F
·P®¦~~~~

oak0723-1

¦^´_ 8# Hsieh


    ¨º¦b½Ð±Ð¤j¤j
¥Ñ³o­Óµ{¦¡½X
Dim a, r%, i%, arr()
    a = Sheets("1").[c10].CurrentRegion
    r = 1
    For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
        r = r + 6
    Next
    [j9] = r
±o¨ìr445
¨º½Ð±Ð
¤U¦C³o­Óµ{¦¡½Xfor-next«áªºr(¬õ¦r¼Ð¥Ü)¤]¬O445¶Ü
    Dim a, r%, i%, arr()
    a = Sheets("1").[c10].CurrentRegion
    r = 1
    For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
        r = r + 6
    Next
    Sheets("2").[c4].Resize(r - 6, 2) = Application.Transpose(arr)
    Sheets("2").[k4].Resize(r - 6, 1) = Application.Transpose(Application.Index(arr, 3))
¥H¤W¸Ôªþ¥ó

oak0723-1

¦^´_ 11# Hsieh


    ¤p§Ì¸Õ¸Õ
·P®¦³á~~~~