条件成立，查找空值填入信息，求解高人！

hhrt321 · 发表于 2018-6-20 22:08

条件成立，查找空值填入信息，下图：当H2为空值不填写，当H2不为空时:
1、在H列第一个空行输入101，H列第二个空行输入102，H列第三个空行输入103，H列第四个空行输入104
2、在I列第一个空行输入A0A，I列第二个空行输入A0B，I列第三个空行输入A0C，I列第四个空行输入A0D

lsc900707 · 发表于 2018-6-20 22:16

这样的要求用vba来解决和用高射炮打蚊子没什么区别了，呵呵。

hhrt321 · 发表于 2018-6-20 22:17

本帖最后由 hhrt321 于 2018-6-20 22:20 编辑

lsc900707 发表于 2018-6-20 22:16
这样的要求用vba来解决和用高射炮打蚊子没什么区别了，呵呵。

研究了半天找了找教程，if完了就搞不下去了，只有返回第一个空行的列数或者行数，怎么输入我要的那些信息搞不定，代码一错就调试调试，很无语啊....

p4607596 · 发表于 2018-6-21 03:07

for a=1 to 4
B=B+100

hhrt321 · 发表于 2018-6-21 15:02

哪位帮忙搞下塞

hhrt321 · 发表于 2018-6-21 20:50

lsc900707 发表于 2018-6-20 22:16
这样的要求用vba来解决和用高射炮打蚊子没什么区别了，呵呵。

请问下下面怎么优化代码，一有动作一点击，就无限自动添加了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [h2] <> "" Then
Dim i, p
i = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row + 1
p = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row + 1
Cells(i, 8).Value = "输入1"
Cells(i + 1, 8).Value = "输入2"
Cells(i + 2, 8).Value = "输入3"
Cells(i + 3, 8).Value = "输入4"
Cells(p, 9).Value = "添加1"
Cells(p + 1, 9).Value = "添加2"
Cells(p + 2, 9).Value = "添加3"
Cells(p + 3, 9).Value = "添加4"
End If
End Sub

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

[求助] 条件成立，查找空值填入信息，求解高人！