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

[µo°Ý] ¦p¦ó±N¨C¦C30¦æªº³æ¤¸®æ¶¶§Ç±Æ¦C?

[µo°Ý] ¦p¦ó±N¨C¦C30¦æªº³æ¤¸®æ¶¶§Ç±Æ¦C?

Text.zip (41.5 KB)

ºÃ°Ý: 1) ¦p¦ó±N¨C­¶ªº¨C30,¦æªº³æ¤¸®æ¶¶Ö£±Æ¤U¥h?
         2) ¦p¦ó²M°£³æ¤¸®æ¤ºªº¦h¾l¤å¦r: ¼Æ¦r, ²Å¸¹?

  1. Sub test()
  2. Dim i As Integer, j As Integer, k As Integer, ar(), dic As Object

  3. [j1:k65536] = ""

  4. For i = 1 To [IV1].End(xlToLeft).Column Step 2
  5.     For j = 1 To [a65536].End(xlUp).Row Step 30
  6.     ar = Range(Cells(j, i), Cells(j + 29, i + 1))
  7.         For k = 1 To UBound(ar)
  8.         If Not ar(k, 1) Like "*³¡" Then
  9.         ar(k, 1) = Left(ar(k, 1), 1)
  10.         End If
  11.         Next

  12. If [j65536].End(xlUp).Address = "$J$1" Then
  13. [j65536].End(xlUp).Resize(UBound(ar), 2) = Application.Transpose(Application.Transpose(ar))
  14. Else
  15. [j65536].End(xlUp).Offset(1).Resize(UBound(ar), 2) = Application.Transpose(Application.Transpose(ar))
  16. Erase ar
  17. End If

  18. Next
  19. Next

  20. End Sub
½Æ»s¥N½X
¸Õ¸Õ³o­Ó
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

§Úı±o¬O³o¼Ë±Æ¦C
  1. Sub ex()
  2. Dim s%
  3. [J:IV] = ""
  4. Cells.Replace "(*)", ""
  5. r = [a65536].End(xlUp).Row
  6. For i = 1 To r Step 30
  7.    For k = 1 To 7 Step 2
  8.    ar = Cells(i, k).Resize(30, 2).Value
  9.    h = IIf(k = 1, 1, IIf(k = 3, 31, IIf(k = 5, 61, 91)))
  10.    Cells(h, 10 + s * 2).Resize(30, 2) = Application.Transpose(Application.Transpose(ar))
  11.    Next
  12.    s = s + 1
  13. Next
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


ª©¥D±z¦n!!
ÁÂÁ±zªº¸Ñµª, ¦ý§Ú¬Ý¤£©ú¥Õ®@,
§Ú¤SµLªk¤U¸ü¦¹ÀɮסA
¥i§_³Â·Ð±z±NÀÉ®×±Hµ¹§Ú
ÁÂÁ±z!!
·P¿E¤£ºÉ

TOP

¦^´_ 4# Qin
«ö¤U 2¼Ó ,3¼Ó  ³Ì©³ºÝ ½Æ»s¥N½X  ±Nµ{¦¡½X ¶K¨ìexcelÀÉ®× ªº VBAµøµ¡ ,¦A«öF5 °õ¦æµ{¦¡

TOP

¦^´_ 4# Qin

¬JµM¬O¦b¤@¯ë°Ïµo°Ý¡A¦P¼Ë¥Î¨ç¼Æ¸Ñ¨M¬Ý¬Ý
©w¸q¦WºÙ
x=INT((ROW()-1)/30)
y=CHOOSE(x+1,1,3,5,7)
z=MOD(ROW()-1,30)+1+INT((COLUMN(!A$1)-1)/2)*30
J1¤½¦¡
=INDIRECT("R"&z&"C"&y+MOD(COLUMN(A$1)+1,2),0)&""
¦V¤U½Æ»s¨ìJ120
J1:J120¦V¥k½Æ»s    Text.rar (98.3 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Ãö©ó²M°£¬A¸¹¤Î¼Æ¦r¦p¹Ï¾Þ§@
test.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD