[已解决]（最简单问题）分表数据依次录入总表后删除分表数据怎么做

love451jl

想在”合同录入“添加”录入“按钮，依次把相关信息对应录入到”合同总成表“里边，录入完成后，”合同录入“里边文字小时，总成表可以一直往下填写，纯粹新人，只想解决这个问题，很着急

最佳答案

月排行榜 / 总排行榜

过江龙

2016-5-31 13:29

试试看
Sub 保存()
    Dim ar1, ar2
    With Sheets("合同计划总成表")

            Rnum = .Range("b65536").End(xlUp).Row '最后行数
            Rnum1 = Range("c65536").End(xlUp).Row
            If Rnum1 < 3 Then
              MsgBox "无保存的数据！", , "温馨提示"
              Exit Sub
            End If
            ar1 = Range("C3:C" & Rnum1)
            ar2 = Range("E3:H" & Rnum1)
            If IsArray(ar1) Then
              .Range("e" & Rnum + 1).Resize(UBound(ar1), 1) = ar1
             Else
             .Range("e" & Rnum + 1).Resize(1, 1) = ar1
            End If
            .Range("F" & Rnum + 1).Resize(UBound(ar2), 4) = ar2
            
            MsgBox "数据已经保存！", , "温馨提示"
      
    End With
    Range("a3:i41").ClearContents
End Sub
5-30.rar (24.43 KB, 下载次数: 13)

2016-5-31 13:35 上传

点击文件名下载附件

跳转到最佳答案楼层

过江龙

看了一下，主要是要求不明确，最好再附一张要达到的效果图。

love451jl

过江龙 发表于 2016-5-31 11:38
看了一下，主要是要求不明确，最好再附一张要达到的效果图。

达到的效果是总成表能依次往下填充合同录入的数据，保留所有数据。合同录入每次保存后就清空数据，方便下一次的数据录入Sub 保存()    Dim Rnum As Long

    With Sheets("合同计划总成表")

            Rnum = .Range("b65536").End(xlUp).Row '最后行数

           Dim i As Integer

            .Range("e" & Rnum + 1) = [c3]
            .Range("f" & Rnum + 1) = [e3]
            .Range("g" & Rnum + 1) = [f3]
            .Range("h" & Rnum + 1) = [g3]
            .Range("i" & Rnum + 1) = [h3]
            MsgBox "数据已经保存！", , "温馨提示"

    End With
    Range("a3:i41") = ""
End Sub
VBA请帮我看看怎么修改，现在这个只能是一直覆盖总成表的第一行数据，不会往下写了

过江龙

试试看
Sub 保存()
    Dim ar1, ar2
    With Sheets("合同计划总成表")

            Rnum = .Range("b65536").End(xlUp).Row '最后行数
            Rnum1 = Range("c65536").End(xlUp).Row
            If Rnum1 < 3 Then
              MsgBox "无保存的数据！", , "温馨提示"
              Exit Sub
            End If
            ar1 = Range("C3:C" & Rnum1)
            ar2 = Range("E3:H" & Rnum1)
            If IsArray(ar1) Then
              .Range("e" & Rnum + 1).Resize(UBound(ar1), 1) = ar1
             Else
             .Range("e" & Rnum + 1).Resize(1, 1) = ar1
            End If
            .Range("F" & Rnum + 1).Resize(UBound(ar2), 4) = ar2
            
            MsgBox "数据已经保存！", , "温馨提示"
      
    End With
    Range("a3:i41").ClearContents
End Sub
5-30.rar (24.43 KB, 下载次数: 13)

2016-5-31 13:35 上传

点击文件名下载附件

love451jl

过江龙 发表于 2016-5-31 13:29
试试看
Sub 保存()
    Dim ar1, ar2

试了一下，发现当下次录入新数据时，它会从总成表的第一行开始覆盖上一次的数据，我想是不要覆盖，接着序号一直往下填写

过江龙

love451jl 发表于 2016-5-31 15:19
试了一下，发现当下次录入新数据时，它会从总成表的第一行开始覆盖上一次的数据，我想是不要覆盖，接着序 ...

把“Rnum = .Range("b65536").End(xlUp).Row '最后行数”这句改为“Rnum = .Range("E65536").End(xlUp).Row '最后行数”