如何使用SQL获取数据保存汇总

浠朢↘恠明兲

如图所示，点击保存，将表1的数据保存到表二，求解~

excel玉米

用SQL好象无法做。下面是用数组的做法，请查看。
Sub 清除()
   Range("d6:k17").ClearContents
   Range("l7:q17").ClearContents
   MsgBox "数据已清除!"
End Sub
Sub 保存()
Dim Rdate, arr(), i%, j%, brr
With Sheet1
arr = .Range("a3").CurrentRegion
End With

If Len(arr(2, 6)) > 0 And Len(arr(3, 6)) > 0 Then

With Sheet2
  j = .Range("A65536").End(xlUp).Row + 1
  .Cells(j, 1) = arr(1, 16)   '日期
  .Cells(j, 2) = arr(2, 6)     's
  .Cells(j, 3) = arr(3, 6)     'p_n
  .Cells(j, 4) = arr(5, 4)     '1#总数
  .Cells(j, 5) = arr(5, 8)     '2#总数
  
  For i = 6 To UBound(arr)
   .Cells(j, 6 + k) = arr(i, 4)   '1# 列表数
     k = k + 1
  Next
  
  For i = 6 To UBound(arr)
   .Cells(j, 6 + k) = arr(i, 8)   '2# 列表数
     k = k + 1
  Next
   For i = 6 To UBound(arr)
   .Cells(j, 6 + k) = arr(i, 12)  '其它1# 列表数
     k = k + 1
  Next
  
   For i = 6 To UBound(arr)
   .Cells(j, 6 + k) = arr(i, 13)  '其它2# 列表数
     k = k + 1
  Next
  
   For i = 6 To UBound(arr)
   .Cells(j, 6 + k) = arr(i, 14)  '其它3# 列表数
     k = k + 1
  Next
  
   For i = 6 To UBound(arr)
   .Cells(j, 6 + k) = arr(i, 15)  '其它4# 列表数
     k = k + 1
  Next
  
   For i = 6 To UBound(arr)
   .Cells(j, 6 + k) = arr(i, 16)  '其它5# 列表数
     k = k + 1
  Next
  
   For i = 6 To UBound(arr)
   .Cells(j, 6 + k) = arr(i, 17)  '其它6# 列表数
     k = k + 1
  Next

  End With
  
  Else
   If Len(arr(2, 6)) = 0 Then MsgBox "" & arr(2, 4) & "  数据不全"
   If Len(arr(3, 6)) = 0 Then MsgBox "" & arr(3, 4) & "  数据不全"
End If
End Sub

opiona

看截图就知道：标题 不符合SQL的规则，不建议SQL

huang1314wei

就这样的标题数据还是不要用SQL了

浠朢↘恠明兲

excel玉米 发表于 2018-6-25 21:22
用SQL好象无法做。下面是用数组的做法，请查看。
Sub 清除()
   Range("d6:k17").ClearContents

非常感谢，咨询了一些老师，我这个数据量太大，数组付值的方法也很麻烦，所以在考虑改变表的架构。