[已解决]请帮助修改：别人表中有三行数据就能保存三行数据，我粘贴修改后为什么只能存在一...

谢谢老师关注，请帮助修改

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-10-30 10:32

这个问题我也碰到过end方法返回的始终不对。

1. Sub dybc()
   
2.     Dim a, b, c As Integer
   
3.     Dim v As Variant
   
4.     Dim t As String
   
5.     Application.ScreenUpdating = False
   
6.     a = 5
   
7.     Do While Len(Sheet2.Range("b" & a).Value)
   
8.         a = a + 1
   
9.     Loop
   
10.     a = a - 1
    
11. '    If Sheet2.[B13] = "" Then
    
12. '        a = Sheet2.[B13].End(xlUp).Row
    
13. '    Else
    
14. '        a = 13
    
15. '    End If
    
16.     v = Sheet2.Range("B5:G" & a).Value
    
17.     With Sheet9
    
18.         b = .[D65536].End(xlUp).Row + 1
    
19.         .Range("E" & b & ":J" & b + a - 5).Value = v
    
20.         t = .Range("B" & b - 1)
    
21.         If Format(Date, "yyyy-m-d") = t Then
    
22.             c = Val(Right(.Range("C" & b - 1), 3)) + 1
    
23.         Else
    
24.             c = 1
    
25.         End If
    
26.         Sheet2.Range("B17 ") = "No." & Format(Date, "yyyymmdd") & Format(c, "000")
    
27.         .Range("C" & b & ":C" & b + a - 5) = "No." & Format(Date, "yyyymmdd") & Format(c, "000")
    
28.         .Range("B" & b & ":B" & b + a - 5) = Format(Date, "yyyy-m-d")
    
29.         .Range("D" & b & ":D" & b + a - 5) = Sheet2.Range("E17")
    
30.         .Range("K" & b).Value = Sheet2.Range("E14").Value
    
31.         .Range("L" & b).Value = Sheet2.Range("D16").Value
    
32.         .Range("K" & b & ":K" & b + a - 5).Merge
    
33.         .Range("L" & b & ":L" & b + a - 5).Merge
    
34.     End With
    
35.     Sheet2.PrintOut
    
36.     Application.ScreenUpdating = True
    
37. End Sub

复制代码

用笨方法来判断的。

跳转到最佳答案楼层

hwc2ycy

这个问题我也碰到过end方法返回的始终不对。

1. Sub dybc()
   
2.     Dim a, b, c As Integer
   
3.     Dim v As Variant
   
4.     Dim t As String
   
5.     Application.ScreenUpdating = False
   
6.     a = 5
   
7.     Do While Len(Sheet2.Range("b" & a).Value)
   
8.         a = a + 1
   
9.     Loop
   
10.     a = a - 1
    
11. '    If Sheet2.[B13] = "" Then
    
12. '        a = Sheet2.[B13].End(xlUp).Row
    
13. '    Else
    
14. '        a = 13
    
15. '    End If
    
16.     v = Sheet2.Range("B5:G" & a).Value
    
17.     With Sheet9
    
18.         b = .[D65536].End(xlUp).Row + 1
    
19.         .Range("E" & b & ":J" & b + a - 5).Value = v
    
20.         t = .Range("B" & b - 1)
    
21.         If Format(Date, "yyyy-m-d") = t Then
    
22.             c = Val(Right(.Range("C" & b - 1), 3)) + 1
    
23.         Else
    
24.             c = 1
    
25.         End If
    
26.         Sheet2.Range("B17 ") = "No." & Format(Date, "yyyymmdd") & Format(c, "000")
    
27.         .Range("C" & b & ":C" & b + a - 5) = "No." & Format(Date, "yyyymmdd") & Format(c, "000")
    
28.         .Range("B" & b & ":B" & b + a - 5) = Format(Date, "yyyy-m-d")
    
29.         .Range("D" & b & ":D" & b + a - 5) = Sheet2.Range("E17")
    
30.         .Range("K" & b).Value = Sheet2.Range("E14").Value
    
31.         .Range("L" & b).Value = Sheet2.Range("D16").Value
    
32.         .Range("K" & b & ":K" & b + a - 5).Merge
    
33.         .Range("L" & b & ":L" & b + a - 5).Merge
    
34.     End With
    
35.     Sheet2.PrintOut
    
36.     Application.ScreenUpdating = True
    
37. End Sub

复制代码

用笨方法来判断的。

谢谢您，解决了我的问题

您好，版主，我又遇到了新问题，您给的代码的确能保存多行，但是它同时也覆盖了上一次保存的数据，所以还请您再帮忙解决一下，拜托了

您好，版主，我又遇到了新问题，您给的代码的确能保存多行，但是它同时也覆盖了上一次保存的数据，所以还请您再帮忙解决一下，拜托了

lgbk

您好，版主，谢谢您的答案，但同时我又遇到了一个新问题，还烦请帮助一下，就是您给的代码这固然解决了多行保存的问题，但是它却覆盖了以前的数据，请帮忙，多谢

hwc2ycy

lgbk 发表于 2014-10-30 11:14
您好，版主，谢谢您的答案，但同时我又遇到了一个新问题，还烦请帮助一下，就是您给的代码这固然解决了多行 ...

这个可以改，==

hwc2ycy

不会覆盖记录工作表里的原有数据呀。