|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 糊涂草 于 2024-3-7 14:44 编辑
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
下面两个老师指导我改了一下,录入页面有空行,不是连续的,
导致记录数据也是有空行,数据不全
|
-
录入信息后怎么解决空行
-
-
-
录入.zip
29.81 KB, 下载次数: 3
|