麻烦高人兄弟姐妹，帮我翻泽一下是啥意思，我是菜鸟

zxw168

Sub 录入数据() '录入数据
Application.ScreenUpdating = False
Dim rng As Range, cel As Range, ar, i, k, m, n
Sheets("信息录入").Activate
n = [a:b].Find("合　　计", , , 1).Row - 1
m = Application.Max(Range("A4:A" & n))
If [b4] = "" Then MsgBox "您没有输入任何信息，点我没用!": Exit Sub
Set rng = Sheets("数据库").[a65536].End(3).Offset(1)
rng.Offset(, 1).Resize(m, 7) = [b4].Resize(m, 7).Value
ar = Array("c2")
   For i = 0 To UBound(ar)
      rng.Offset(0, i).Resize(m) = Range(ar(i))
   Next
'Sheet1.PrintOut
[b4:d13,g4:j13].ClearContents
Range("b4").Select
Application.ScreenUpdating = True
End Sub

王小博vba

语言是有语境的，你不上传EXCEL，光看VBA程序，谁知道这是怎么个意思呢？{:soso_e117:}

星展小丰

不对，你没有销售出一样产品，例如你没有卖一样电脑产品，所以你的销售业绩是0业绩。所以你不适合作销售人员。因为你把价格压的太低了。产品利润没有，怎么可能有销售业绩。你在研究研究吧

liqiang12003

是数据库的录入窗口的代码吧？