求助，哪位老师帮我修改一下

糊涂草

Sub 矩形1C1ick()
Dim i%, arr(), Rng As Range, c As Range, j As Long
i = Sheets(3).[a65536].End(3).Row + 1
Set Rng = Range("L5,L7,L9,N5,N7,N9,P5")
ReDim arr(0, 1 To Rng.Cells.Count)
For j = 1 To Rng.Cells.Count
arr(0, j) = Rng.Cells(j).Value
Next
Range("L7,L9,N5,N7,N9,P5").ClearContents
Sheets(3).Cells(i, 1).Resize(1, 7) = arr
End Sub

下面两个老师指导我改了一下，录入页面有空行，不是连续的，
导致记录数据也是有空行，数据不全

taller

清风竹-

Sub 录入()
Dim i%, arr()
i = [a65536].End(3).Row + 1
arr = Array(Cells(5, "l"), Cells(7, "l"), Cells(9, "l"), Cells(5, "n"), Cells(7, "n"), Cells(9, "n"))
Range("L7,L9,N5,N7,N9").ClearContents
Cells(i, 1).Resize(1, 6) = arr
End Sub

糊涂草

taller 发表于 2024-3-7 14:15

非常感谢！问题解决了，这是在之前的一个表格上改了一下，就出现问题。

糊涂草

清风竹- 发表于 2024-3-7 14:18
Sub 录入()
Dim i%, arr()
i = [a65536].End(3).Row + 1

前面的录入端，单元格之前是有空行的
录入后休息显示不全

清风竹-

糊涂草 发表于 2024-3-7 14:37
前面的录入端，单元格之前是有空行的
录入后休息显示不全

.............

糊涂草

清风竹- 发表于 2024-3-7 16:37
.............

感谢老师，看样子还是要多学习一下