­ã´£³¡ªL

change ¥i¥H§PÂ_§R°£ÁÙ¬O§ó·s¼Æ¾Ú¶Ü???
¥i¦Ò¼{¥Î[«ö¶s]°õ¦æ§R°£

­ã´£³¡ªL

À³¬O [¾ã¦C] §R°£§a~~

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRng As Range
On Error Resume Next
Set xRng = Sheets("Sheet1").Range("XXXX") 'ÀË´ú©w¸q¦WºÙ(Sheet1)¬O§_¦³®Ä  
If Not xRng Is Nothing Then Exit Sub '­YXXXX©w¸q¦WºÙÁÙ¦³®Ä, ªí¥Ü¤£¬O§R°£, ¸õ¥X
Set xRng = Sheets("Sheet2").Range("YYYY") 'ÀË´ú©w¸q¦WºÙ(Sheet2)¬O§_¦³®Ä
On Error GoTo 0
If Not xRng Is Nothing Then xRng.EntireRow.Delete '¦P¨B§R°£Sheet2ªºYYYY¦ì§}¦C
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ThisWorkbook.Names("XXXX").Delete '§R°£©w¸q¦WºÙ
ThisWorkbook.Names("YYYY").Delete '§R°£©w¸q¦WºÙ
On Error GoTo 0
With Target
     If .Columns.Count <> Columns.Count Then Exit Sub '«D¿ï¨ú[¾ã¦C]¸õ¥X
     .Cells.Name = "XXXX" '©w¸q¦WºÙ(Sheet1)
     Sheets("Sheet2").Range(.Address).Name = "YYYY" '©w¸q¦WºÙ(Sheet2)
End With
End Sub