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

[µo°Ý] ±ø¥ó¨ú­È,¦r¦ê·|ÅܤG¦æ,½Ð«e½ú«üÂI·P®¦.

[µo°Ý] ±ø¥ó¨ú­È,¦r¦ê·|ÅܤG¦æ,½Ð«e½ú«üÂI·P®¦.

±ø¥ó¨ú­È,dÄæ¦r¦ê·|ÅܤG¦æ,¥i¯à¦³ªÅ¤@®æ,½Ð«e½ú«üÂI·P®¦.

¦r¦êÂà´«.rar (18.06 KB)

§ù¤p¥­

¦^´_ 1# dou10801 ¦p¦óÅܦ¨¤@¦æ,ÁÂÁÂ.
§ù¤p¥­

TOP

¦^´_  dou10801 ¦p¦óÅܦ¨¤@¦æ,ÁÂÁÂ.
dou10801 µoªí©ó 2022-9-12 11:20


¥Î§A­ì¨Óªºµ{¦¡½X­×§ï¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub «ö¶s1_Click()
arr = Sheets("¤u§@ªí1").Range("A1:E" & Sheets("¤u§@ªí1").Cells(Rows.Count, 1).End(xlUp).Row)
ReDim brr(1 To Sheets("¤u§@ªí1").Cells(Rows.Count, 1).End(xlUp).Row, 1 To 5)
ms1 = 1
For i = 1 To UBound(arr)
    If arr(i, 1) = "¤k" Then
        brr(ms1, 1) = arr(i, 1)
        brr(ms1, 2) = arr(i, 2)
        brr(ms1, 3) = arr(i, 3)
       'brr(ms1, 4) = arr(i, 4)
        a = Split(arr(i, 4), Chr(10))
        For j = 0 To UBound(a): brr(ms1, 4) = brr(ms1, 4) & a(j): Next

        brr(ms1, 5) = arr(i, 5)
        ms1 = ms1 + 1
    End If
Next
Sheets("¤u§@ªí2").Range("A1:E1000") = ""
Sheets("¤u§@ªí2").Range("A1:E" & UBound(brr)) = brr
End Sub

TOP

¦^´_ 2# dou10801


    ÁÂÁ«e½úµoªí¦¹©«
«á½ú¦³¨âºØ¬Ýªk
1.«O¯d­ì´«¦æ¤º®e>ªí2  DÄæÀx¦s®æ®æ¦¡³]¬°¤£´«¦æ
Sub DÄæÀx¦s®æ®æ¦¡³]¬°¤£´«¦æ()
Arr = Sheets("¤u§@ªí1").Range("A1:E" & Sheets("¤u§@ªí1").Cells(Rows.Count, 1).End(xlUp).Row)
ReDim brr(1 To Sheets("¤u§@ªí1").Cells(Rows.Count, 1).End(xlUp).Row, 1 To 5)
MS1 = 1
For i = 1 To UBound(Arr)
    If Arr(i, 1) = "¤k" Then
        brr(MS1, 1) = Arr(i, 1)
        brr(MS1, 2) = Arr(i, 2)
        brr(MS1, 3) = Arr(i, 3)
        brr(MS1, 4) = Arr(i, 4)
        brr(MS1, 5) = Arr(i, 5)
        MS1 = MS1 + 1
    End If
Next
Sheets("¤u§@ªí2").Range("A1:E1000") = ""
Sheets("¤u§@ªí2").Range("A1:E" & UBound(brr)) = brr
Sheets("¤u§@ªí2").[D:D].WrapText = False
Sheets("¤u§@ªí2").[D:D].Columns.AutoFit
End Sub

2.¥Î¨ú¥Nªº¤è¦¡±N´«¦æ¦r¤¸Âà´«¬°ªÅ¥Õ¦r¤¸
Option Explicit
Sub ²Å¦X±ø¥ó_Àx¦s®æ_´«¦æÂà´«ªÅ¥Õ¦r¤¸()
Dim Arr, i, x, MS1
Arr = Sheets("¤u§@ªí1").[A1].CurrentRegion
MS1 = 0
For i = 1 To UBound(Arr)
   If Arr(i, 1) = "¤k" Then
      MS1 = MS1 + 1
      For x = 1 To 5
         Arr(MS1, x) = Replace(Arr(i, x), vbLf, " ")
      Next
   End If
Next
With Sheets("¤u§@ªí2")
   .[A:E].ClearContents
   .[A1].Resize(MS1, 5) = Arr
   .[D:D].Columns.AutoFit
End With
End Sub

TOP

·PÁ¨â¦ì¥ý¶i«ü¾Ésamwang,Andy2483,¤@­Ó°ÝÃD¦³¤TºØ¤èªk,¦¬¤UºCºC¾Ç²ß,·P®¦.
§ù¤p¥­

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD