怎样将录入窗口的数据，保存到另一张表里

阿牛吃草

怎样把这个录入窗口的数据保存至另一张表

怎样将这个录入窗口的数据，点上面的清除并保存按键后，将数据保存至另一表。

目前写的只能保存第一行整车的数据，请大侠看下问题出在哪里：
Sub ?????????()
s = Sheets("?????????").Range("a65536").End(xlUp).Row + 1
With Sheets("?????????")
.Cells(s, 1) = [E20].Value
.Cells(s, 2) = [B2].Value
.Cells(s, 3) = [E2].Value
.Cells(s, 4) = Range("A4:A17").Value
.Cells(s, 5) = Range("B4:B17").Value
.Cells(s, 6) = Range("C4:C17").Value
.Cells(s, 7) = Range("D4:D17").Value
.Cells(s, 8) = Range("E4:E17").Value
.Cells(s, 9) = Range("F4:F17").Value
.Cells(s, 10) = [E19].Value
Range("B2,E2,B4,B6:B7,B11:B17,C4:C17,F4:F17") = ""


End With
End Sub

liujialin0o0

范围大小不一致,改成一样大小

.Cells(s, 4).Resize(14,1) = Range("A4:A17").Value
.Cells(s, 5).Resize(14,1) = Range("B4:B17").Value
.Cells(s, 6).Resize(14,1) = Range("C4:C17").Value
.Cells(s, 7).Resize(14,1) = Range("D4:D17").Value
.Cells(s, 8).Resize(14,1) = Range("E4:E17").Value
.Cells(s, 9).Resize(14,1) = Range("F4:F17").Value

阿牛吃草

请问：Resize(14,1)，，14  1   分别代表什么？

liujialin0o0

阿牛吃草 发表于 2018-8-27 16:38
请问：Resize(14,1)，，14  1   分别代表什么？

Resize(总行数，总列数)
如:
[A2].Resize(14,2)
以A2单元格为坐标,向下扩14行,向右扩2列,即 A1:B14区域