如何用VBA获取某列的最后面的空白行（忽略中间空白格）并添加数据

Jungle2021 · 发表于 2024-4-19 15:47

本帖最后由 Jungle2021 于 2024-4-19 15:51 编辑

Peny2020 发表于 2024-4-18 13:34
你的sheet5是第5个sheet还是sheet的名称叫sheet5??
sheets(5) 是第5个sheet的意思
sheets("sheet5") 是 ...

大佬！还是昨天那问题因为最下行有些有数据有些是空，所以我想定位到B单元格位置后并输出值1后C,D,E列以B行为准在各自单元格上填上值2,3,4 如下怎么修改？

Sub yy()
sheets("sheet5").Range("B" & Cells(Rows.Count, 2).End(xlUp).Row).Offset(1) = "1"
....."C".......... = "2"
....."D".......... = "3"
......"E".......... = "4"
End Sub

Jungle2021 · 发表于 2024-4-19 15:59

Peny2020 发表于 2024-4-18 13:34
你的sheet5是第5个sheet还是sheet的名称叫sheet5??
sheets(5) 是第5个sheet的意思
sheets("sheet5") 是 ...

不知道为什么，我的回复不见了？？？我重新发下
我想以B单元格为准并输出值1，然后C,D,E与B同一行上输出值2,3,4如下怎么修改？
Sub yy()
sheets(5).Range("B" & Cells(Rows.Count, 2).End(xlUp).Row).Offset(1) = "1"
........C.......= "2" 'C列与B同一行
........D.......= "3"
........E.......= "2"
End Sub

Peny2020 · 发表于 2024-4-19 16:36

Jungle2021 发表于 2024-4-19 15:59
不知道为什么，我的回复不见了？？？我重新发下
我想以B单元格为准并输出值1，然后C,D,E与B同一行上输出 ...

那就用7楼的就可以了
Set Rng = Cells(Rows.Count, "b").End(xlUp)
Rng.Offset(1, 0).Resize(1, 4) = Array(1, 2, 3, 4)

Peny2020 · 发表于 2024-4-19 16:54

Set Rng = sheets("sheet5").Cells(Rows.Count, "b").End(xlUp)
Rng.Offset(1, 0).Resize(1, 4) = Array(1, 2, 3, 4)

Jungle2021 · 发表于 2024-4-19 17:08

Peny2020 发表于 2024-4-19 16:36
那就用7楼的就可以了
Set Rng = Cells(Rows.Count, "b").End(xlUp)
Rng.Offset(1, 0).Resize(1, 4) = A ...

如果以C列为准，B , D , E列同C列？
Resize(-1,3)???

Peny2020 · 发表于 2024-4-19 17:16

Jungle2021 发表于 2024-4-19 17:08
如果以C列为准，B , D , E列同C列？
Resize(-1,3)???

r = sheets("sheet5").Cells(Rows.Count, 3).End(xlUp).Row
Range("B" & r).Offset(1) = 1
Range("C" & r).Offset(1) = 2
Range("D" & r).Offset(1) = 3

Peny2020 · 发表于 2024-4-19 17:19

本帖最后由 Peny2020 于 2024-4-19 17:46 编辑

r = sheets("sheet5").Cells(Rows.Count, 3).End(xlUp).Row '这个3就是C列，你想哪列就改相应的数字就好了
Range("B" & r).Offset(1) = 1
Range("c" & r).Offset(1) = 2
Range("d" & r).Offset(1) =3

Jungle2021 · 发表于 2024-4-19 18:52

Peny2020 发表于 2024-4-19 17:19
r = sheets("sheet5").Cells(Rows.Count, 3).End(xlUp).Row '这个3就是C列，你想哪列就改相应的数字就好了 ...

真是太感谢了！这里的sheet5只能在shee5工作表里面才能运行，能不能我在sheet1工作表页面时，运行VBA sheet5也能自动赋值？

Peny2020 · 发表于 2024-4-20 09:49

本帖最后由 Peny2020 于 2024-4-20 09:56 编辑

Jungle2021 发表于 2024-4-19 18:52
真是太感谢了！这里的sheet5只能在shee5工作表里面才能运行，能不能我在sheet1工作表页面时，运行VBA she ...

那你就加多个
With sheets（sheet5）
r =.Cells(Rows.Count, 3).End(xlUp).Row
.Range("B" & r).Offset(1) = 1
.Range("c" & r).Offset(1) = 2
.Range("d" & r).Offset(1) =3
End with
那就无论在哪点运行都只是对sheet5操作，其他sheet没影响

Jungle2021 · 发表于 2024-4-20 19:54

Peny2020 发表于 2024-4-20 09:49
那你就加多个
With sheets（sheet5）
r =.Cells(Rows.Count, 3).End(xlUp).Row

把最响亮的掌声送给无私奉献者！！！

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA获取某列的最后面的空白行（忽略中间空白格）并添加数据