把单元格输入数据VBA代码，改写用数组方法

laoau138

把单元格输入数据VBA代码，改写用数组方法


Sub 输入()
  Dim c As Integer   '号码在库存表中的个数
  Dim r As Integer   '入库单的数据行数
  Dim cr As Integer  '库存明细表中第一个空行的行数
With Sheets("库存明细表")
    c = Application.CountIf(.[b:b], Range("g3"))
    If c > 0 Then
       MsgBox "该单据号码已经存在！,请不要重复录入"
       Exit Sub
    Else
       r = Application.CountIf(Range("b6:b10"), "<>")
       cr = .[b65536].End(xlUp).Row + 1
       .Cells(cr, 1).Resize(r, 1) = Range("e3")
       .Cells(cr, 2).Resize(r, 1) = Range("g3")
       .Cells(cr, 3).Resize(r, 1) = Range("c3")
       .Cells(cr, 4).Resize(r, 6) = Cells(6, 2).Resize(r, 6).Value
       MsgBox "输入已完成"
    End If
End With
End Sub

' “入库单表格“单元格G3数值”在“库存明细表”中B列是否存在
'如果不存在,把"入库单"表格对应项，自动输入到"库存明细表"中



'把单元格输入数据VBA代码，改写用数组方法