- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 3# ii31sakura - Sub Ex()
- Dim Ar(), i As Integer, S As String, Rng As Range, ss
- With Sheets("¤ñ¹ïdata").Range("A" & Sheets("¤ñ¹ïdata").Rows.Count).End(xlUp).Resize(, 4)
- S = Join(Application.Transpose(Application.Transpose(.Value)), "")
- '"¤ñ¹ïdata"³Ì«á¤@µ§ªº("A~D")ªº¸ê®Æ
- End With
- With Sheets("Á`¾ã²z")
- .Cells.Clear
- .Range("A1").Resize(, 7) = Sheets("¨Ó·½data").Range("A1").Resize(, 7).Value 'ªíÀY
- Ar = Sheets("¨Ó·½data").Range("A1:D5").Value 'sheet"¨Ó·½data"¤¤("A~D")
- For i = 1 To UBound(Ar)
- If S = Join(Application.Index(Ar, i), "") Then
- Set Rng = Sheets("¨Ó·½data").Cells(i, "A").Resize(, 7)
- MsgBox "¦b ²Ä" & i & " ¦C §ä¨ì " & Join(Application.Transpose(Application.Transpose(Rng.Value)), ",")
- .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(, 7) = Rng.Value
- End If
- Next
- End With
- End Sub
½Æ»s¥N½X |
|