点击该行任意单元格，复制该行数据到另一个工作表内，谢谢

断.点

点击该行任意单元格，复制该行数据到另一个工作表内！

tiger1976

Sub lll()
    Dim i As Integer
    Dim k As Integer
    Dim m As Integer
    Dim n As Integer
   
    i = Worksheets("销售录入").Cells(Rows.Count, 1).End(xlUp).Row
    k = Worksheets("客户").Cells(Rows.Count, 1).End(xlUp).Row
    If ActiveSheet.Name = "销售录入" Then
        m = ActiveCell.Row
        n = ActiveCell.Column
        If n <= 12 And m <= i And m > 3 Then
            Range("a" & m & ":l" & m).Copy Worksheets("客户").Range("a" & k + 1)
        End If
    End If
   

End Sub

tmplinshi

1. Sub CopyLine()
   
2. 
   
3.     If Selection.Row < 4 Then Exit Sub
   
4. 
   
5.     Dim srcRng  As Range
   
6.     Dim destRng As Range
   
7. 
   
8.     Set srcRng = Cells(Selection.Row, 1).Resize(1, 12)
   
9.     Set destRng = Sheets("客户").Cells(Rows.Count, 1).End(xlUp).Offset(1)
   
10.     srcRng.Copy destRng
    
11. 
    
12. End Sub

复制代码

taller

安若浅笑

可以用公式实现吗