Andy2483

¦^´_ 13# sschristy


    ¥H¤U¬O½Æ²ßªº¤ß±oµù¸Ñ,½Ð«e½ú°Ñ¦Ò

Private Sub CommandButton2_Click()
Dim xA As Range, xB As Range, xI As Range
'¡ô«Å§i(xA,xB,xI)¦U¬OÀx¦s®æÅܼÆ
Set xA = Range([A1], ActiveSheet.UsedRange)
'¡ô¥OxA³oÀx¦s®æÅܼƬO²[»\[A1]Àx¦s®æ»P¦¹ªí¤w¨Ï¥ÎÀx¦s®æ,
'²[»\³o°Ï¶¡ªº³Ì¤p¤è¥¿½d³òÀx¦s®æ
Set xB = [A:G]
'¡ô¥OxB³oÀx¦s®æÅܼƬO[A:G]Àx¦s®æ
Set xI = Intersect(xA, xB)
'¡ô¥OxI³oÀx¦s®æÅܼƬO xA»PxBÅܼƥ涰ªºÀx¦s®æ
xI.Offset(3, 0).ClearContents
'¡ô¥OxIÅܼƩ¹¤U°¾²¾3¦Cªº³o·s½d³òÀx¦s®æ²M°£¨ä¤º®e
End Sub

sschristy

¦^´_ 15# Andy2483


    ·PÁÂANDY¤j¤j¡A½Ð°Ý¦³¿ìªk¥u§å¦¸§R°£©Ò¿ïªºÄæ¦ì¶Ü¡H

Andy2483

¦^´_ 16# sschristy


    ¥H¤U¬O§å¦¸§R°£¿ï¨úªº¦C¸ê®Æ(¿ï¨ú®æ¦CÄd>«ö¶s) ©Î ¥þ³¡¦C¸ê®Æ§R°£(¾ãªí¿ï¨ú>«ö¶s)

Private Sub CommandButton2_Click()
Dim Q, A$, i&, n&, xI As Range, Brr, xA As Range, xB As Range
Set xA = Selection.Cells: Set xB = ActiveSheet.UsedRange
If xA.EntireRow.Count > xB.Rows.Count Then Set xA = Intersect(xA, xB)
If xA Is Nothing Then Exit Sub
Set xI = Intersect(Range([A1], xB), [A:G]): Brr = xI
For Each Q In Split(xA.EntireRow.Address(0, 0), ",")
   For i = Split(Q, ":")(0) To Split(Q, ":")(1)
      A = IIf(A = "", "/" & Val(i) & "/", A & Val(i) & "/")
   Next
Next
For i = 4 To xI.Rows.Count
   If InStr(A, "/" & i & "/") Then GoTo i01 Else n = n + 1
   For j = 1 To UBound(Brr, 2): Brr(n, j) = Brr(i, j): Next
i01: Next
xI.Offset(3, 0).ClearContents
If n = 0 Then Exit Sub
[A4].Resize(n, UBound(Brr, 2)) = Brr
End Sub

Andy2483

¦^´_ 16# sschristy


    ¥H¤U¥t¤@¤èªk,½Ð«e½ú°Ñ¦Ò
Private Sub CommandButton2_Click()
Dim xU As Range, xA As Range, xB As Range
Set xA = Selection.Cells: Set xB = ActiveSheet.UsedRange.Offset(3)
Set xU = Union(xA, xB)
If xU.Count <> xB.Count Then Exit Sub
Intersect(xA.EntireRow, [A:G]).Delete Shift:=xlUp
End Sub

rtyfghvbn520

§Ú¬O¿n¤À¤£¨¬µLªkµo¤å
§V¤O¤¤