Question

EXCEL如何把sheet1中数据提交到sheet2中

sheet1中是出库单的打印格式，希望每次输入的内容能够在点击提交按钮的时候，绿色部分会自动添加到sheet2中对应的栏位，vb没有研究过。请高人帮忙指点一下。





Answer 1

代码如下：

Private Sub CommandButton1_Click()
    LastRow = Sheets("明细").Cells(Rows.Count, 1).End(xlUp).Row + 1

    For i = 4 To 12
        If Cells(i, 2).Value <> "" Then
            For j = 2 To 9
                Sheets("明细").Cells(LastRow, j - 1).Value = Cells(i, j).Value
            Next
            LastRow = LastRow + 1
        End If
    Next
End Sub

示例结果图：

附件：

追问

windblast您好，效果看到了，功能已经实现，能否帮忙解决下：重复点击提交的时候会出现重复保存的误操作，请帮忙想个解法。
每天都要用到，希望是打印、保存后就存在第二章表格里面。
再次感谢！

追答

如果希望不重复保存，你需要在明细表里，再增加一列，用于保存出库单号，代码修改如下：

Private Sub CommandButton1_Click()
    LastRow = Sheets("明细").Cells(Rows.Count, 1).End(xlUp).Row + 1

    Set c = Sheets("明细").Range("A:A").Find(Range("H2").Value)
    If c Is Nothing Then
        For i = 4 To 12
            If Cells(i, 2).Value <> "" Then
                Sheets("明细").Cells(LastRow, 1).Value = Range("H2").Value
                
                For j = 2 To 9
                    Sheets("明细").Cells(LastRow, j).Value = Cells(i, j).Value
                Next
                LastRow = LastRow + 1
            End If
        Next
    Else
        MsgBox "该出库单号已经保存!"
    End If
End Sub

示例结果图：

Answer 2

把EXCEL表发给我，251865000@qq.com