[已解决]求助，代码有问题，自己找不出错误。请各位老师帮助解决，谢谢啦！

hydh1975

每次录入后会多1行内容，知道原因，但不知道怎么改正，求帮助，谢谢各位老师了。 求助.rar (20.28 KB, 下载次数: 17)

2012-1-16 09:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-16 09:50

附件： 求助-sunjing.rar (23.12 KB, 下载次数: 11)

2012-1-16 09:50 上传

点击文件名下载附件

跳转到最佳答案楼层

sunjing-zxl

1. Sub aa()
   
2.     Dim arr, arr1, i As Long, n As Long
   
3.     Dim str1 As String, str2 As String, date1 As Date
   
4.     arr = Range("D9:M14")
   
5.     ReDim arr1(1 To UBound(arr), 1 To UBound(arr, 2) + 3)
   
6.     str1 = [E6]
   
7.     str2 = [L5]
   
8.     date1 = [L6]
   
9.     For i = 1 To UBound(arr)
   
10.         If arr(i, 1) = "" Then
    
11.             With Sheets("军")
    
12.             n = .[A65536].End(xlUp).Row + 1
    
13.             .Range("A" & n).Resize(UBound(arr1), UBound(arr1, 2)) = arr1
    
14.             End With
    
15.             MsgBox "数据录入完成"
    
16.             Range("D9:M14").ClearContents
    
17.             Exit Sub
    
18.         Else
    
19.             arr1(i, 1) = str1
    
20.             arr1(i, 2) = date1
    
21.             arr1(i, 3) = str2
    
22.             For j = 4 To UBound(arr1, 2)
    
23.                 arr1(i, j) = arr(i, j - 3)
    
24.             Next j
    
25.         End If
    
26.     Next i
    
27. End Sub

复制代码

sunjing-zxl

附件： 求助-sunjing.rar (23.12 KB, 下载次数: 11)

2012-1-16 09:50 上传

点击文件名下载附件

wayy

1. Sub 录入()
   
2. Dim index As Integer
   
3. Dim ws As Worksheet
   
4. Dim rng As Range
   
5. If Application.WorksheetFunction.CountIf(Worksheets("军").Range("A:A"), Range("E6")) > 0 Then
   
6.    MsgBox "此单号已录入过,不能重新录入", , "操作提示"
   
7. Exit Sub
   
8. End If
   
9. Set ws = Worksheets("军")
   
10. For Each rng In Range("D9:D14")
    
11.     If rng.Value <> "" Then
    
12.        index = ws.UsedRange.Rows.Count + 1
    
13.        With ws
    
14.           .Range("a" & index).Value = Range("E6")
    
15.           .Range("b" & index).Value = Format(Range("L6"), "mm-dd-yy")
    
16.           .Range("c" & index).Value = Range("L5")
    
17.           For mcol = 4 To 13
    
18.             .Cells(index, mcol) = Cells(9, mcol)
    
19.           Next
    
20.       End With
    
21. End If
    
22. Next
    
23. MsgBox "录入完毕", , "操作提示"
    
24. Range("E6,L5,L6,D9:M14") = ""
    
25. End Sub

复制代码

hydh1975

谢谢各位老师的帮助，我去试试。

libenwen2011

高手                                                  

ztccsj

都是高手，加油