EXCEL中如何用VBA自动输入明细方法。我想在第三列输入数据后，其他行自动输入数据

ljd15366

EXCEL中如何用VBA自动输入明细方法，请高手帮忙修改

在Excel中，我想在某一行的第三列内数据时，如果该行的其他列内没有数据，就等于上面一行的数据。如果有数据，原有数据不变。因为我的表格是一个模板，在设置时有行数限制。如果输入到最后一行时，我希望自动在增加一行。


下面的代码有点问题，现在请高手帮忙修改。主要是没有结束语句。

Private Sub Worksheet_ Change (ByVal Target As Range)

'注意为了避免把行列标志写错，已经在单价所在的区域作了命名，命名为price确定明细表的行范围

Dim r1 As Long, r2 As_ Long

' r1和r2是明细表的行范围

r1 = Range("-price"). Row

r2 = r1 + Range("- price").Rows. Count-1

Dim r As Long, c As Long

r =Target. Row

C =Target. Column

'如果当前行列不在重里的范围内，什么也不做，返回

If Not (r>=r1 And r<= r2  Andc = Range(" -price"). Column)  Then

Exit Sub

End If

Dim oadd As Object

Set oadd=Application.COMAddIns("ESClient10. Connect"). 0bject

'如果已经到了最后一行，则增加一个新行

If r= r2 Then

oadd. InsertRow 1, r2, 1

'增加行后，光标定位到新行上

Range("B" &(r + 1)).Select

End If

'如果输入了单价:就自动复制本行到下一行。

'先判断下一行的物料名称是否为空，为空才复制，否则不复制

If Cells(r + 1,2)=”” Then

'考虑到可能由被锁定的单元格的情况，为了复制不出错，先解锁

oadd. UnProtectBook

'开始复制

For i=2 To 3

Cells(r + 1,i) = Cells(r, i)

Next

'复制之后再上锁

oadd. ProtectBook

End If

End Sub

Excel2119

最好上传测试附件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     '注意为了避免把行列标志写错，已经在单价所在的区域作了命名，命名为price确定明细表的行范围
   
3.     Dim r1 As Long, r2 As Long
   
4.     ' r1和r2是明细表的行范围
   
5.     r1 = Range("-price").Row
   
6.     r2 = r1 + Range("- price").Rows.Count - 1
   
7.     Dim r As Long, c As Long
   
8.     r = Target.Row
   
9.     c = Target.Column
   
10.    
    
11.     '如果当前行列不在重里的范围内，什么也不做，返回
    
12.     If Not (r >= r1 And r <= r2 And c = Range(" -price").Column) Then
    
13.         Exit Sub
    
14.     End If
    
15.    
    
16.     Dim oadd As Object
    
17.     Set oadd = Application.COMAddIns("ESClient10. Connect").Object
    
18.    
    
19.     '如果已经到了最后一行，则增加一个新行
    
20.     If r = r2 Then
    
21.         oadd.InsertRow 1, r2, 1
    
22.         '增加行后，光标定位到新行上
    
23.         Range("B" & (r + 1)).Select
    
24.     End If
    
25.    
    
26.     '如果输入了单价:就自动复制本行到下一行。
    
27.     '先判断下一行的物料名称是否为空，为空才复制，否则不复制
    
28.     If Cells(r + 1, 2) = "" Then
    
29.         '考虑到可能由被锁定的单元格的情况，为了复制不出错，先解锁
    
30.         oadd.UnProtectBook
    
31.         '开始复制
    
32.         For i = 2 To 3
    
33.         Cells(r + 1, i) = Cells(r, i)
    
34.         Next
    
35.         '复制之后再上锁
    
36.         oadd.ProtectBook
    
37.     End If
    
38.    
    
39. End Sub

复制代码