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

[µo°Ý] ½Ð°ÝVBA ¦P¤@¦C´M§ä¦h­Ó±ø¥óªº­È¸Ó¦p¦ó°µ

[µo°Ý] ½Ð°ÝVBA ¦P¤@¦C´M§ä¦h­Ó±ø¥óªº­È¸Ó¦p¦ó°µ

´M§ä¦h­Ó¦C±ø¥ó.rar (21.43 KB) Dear ¤j¤j:
¤p§Ì½Ð±Ð¤@¤U¡A¦pªG§Ú¦b MPS_TEST ¤§¤u§@ªíùØ·Q±o¨ì ¨Ï¥Î¾÷ºØ A ªº§ë产¤é´Á(°_)»P§ë产¤é´Á(¤î)¡A¸ê®Æ¨Ó·½¬O"±Æµ{"¤u§@ªíùتºAÄ檺A¾÷ºØ)¡A¦A¥[¤WI Äæ¬O­n§ë¤J¡AµM«á·|¦Û°Ê¿ï¦p²Ä5¦C¤SJÄæ~AXÄæùئ³¼Æ¦rªÌ¡A²Ä¤@­Ó¼Æ¦rªÌ¹ïÀ³¤W¤é´Á¬O§ë产¤é´Á(°_)-->¦p4/19, ³Ì«á¤@­Ó¼Æ¦r¹ïÀ³¤W¤é´Á¬O§ë产¤é´Á(¤î)-->¦p4/21¡A½Ð°Ý¯«¤H¤j¤j­ÌVBA ¸Ó¦p¦ó¼g??

¦^´_ 1# scjiao
¸Õ¸Õ¬Ý:
  1. Sub test()
  2.     Dim sh1, sh2 As Worksheet
  3.     Dim i, j, k As Integer
  4.     Set sh1 = Sheets("MPS_TEST")
  5.     Set sh2 = Sheets("±Æµ{")
  6.     Sheets("±Æµ{").Activate
  7.     With sh2
  8.     For i = 1 To 35
  9.        sh1.Cells(i * 8 - 3, 1).Resize(8, 1) = .Cells(i * 2 + 3, 1)
  10.        For j = 10 To 50
  11.            .Cells(i * 2 + 3, j).Select
  12.            If .Cells(i * 2 + 3, j) <> "" Then
  13.                 .Cells(3, .Cells(i * 2 + 3, j).Column).Select
  14.                 sh1.Cells(i * 8 - 3, 2).Resize(8, 1) = .Cells(3, .Cells(i * 2 + 3, j).Column)
  15.                 sh1.Cells(i * 8 - 3, 3).Resize(8, 1) = .Cells(3, .Cells(i * 2 + 3, j).Column)
  16.                 k = j
  17.                 Do
  18.                     k = k + 1
  19.                     If .Cells(i * 2 + 3, k) <> "" Then
  20.                         sh1.Cells(i * 8 - 3, 3).Resize(8, 1) = .Cells(3, .Cells(i * 2 + 3, k).Column)
  21.                     End If
  22.                 Loop Until k > 50
  23.                 If k > 50 Then GoTo nextI
  24.            End If
  25.        Next
  26. nextI:
  27.     Next
  28.     End With
  29. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# yen956
ÁÂÁ¤j¤j¡A§Ú¸Õ¸Õ¬Ý

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD