请帮助解决数据保存的问题

一把小刀闯天下

抽屉123 发表于 2018-8-5 22:06
老师您好！G列的数据是变动的，也只能在G列里面输入后，录入到“明细表”里，在“明细表”里就会按输入数 ...

'先清空"明细表"第4行及一下内容，未做重复性输入判断，先测试一下

Option Explicit

Sub test()
  Dim arr, i, j, n
  arr = Sheets("录入").[f9].CurrentRegion
  ReDim brr(1 To UBound(arr, 2), 1 To UBound(arr, 1))
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      brr(j, i) = arr(i, j)
  Next j, i
  With Sheets("明细表")
    If Len(.[a4].Value) = 0 Then '第一次输入判断
      .[a4].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
    Else '非第一次输入
      n = .Cells(Rows.Count, "a").End(xlUp).Row + 1
      ReDim arr(1 To 1, 1 To UBound(brr, 2))
      For i = 1 To UBound(arr, 2): arr(1, i) = brr(2, i): Next
      .Cells(n, "a").Resize(, UBound(arr, 2)) = arr
    End If
  End With
End Sub

zhangcheng6688

lsc900707 发表于 2018-8-5 22:19

简洁明了，点赞版主