VBA 判断条件自动填充公式

dmargon · 发表于 2020-3-10 00:38

请教

如果C列数据为"Parent', 则B列，D列留空，
如果C列数据为“Child”，则B列，D列填充公式：=MID(A4,15,4) ’A4相对引用

所有数据第4行开始，并填充到有数据的最后一行。

非常感谢

数据如下图，附件已上传

图片.png

c199300220 · 发表于 2020-3-10 04:28

附件是空的

wangweihebtu · 发表于 2020-3-10 06:55

B4 D4 =IF(C4="child",MID(A4,15,4),"")

一个公式能解决，为啥非得VBA呢？

microyip · 发表于 2020-3-10 08:21

用得VBA，又何必用公式填呢？既然要填公式，如2楼说，写一个公式就解决的问题了

YZC51 · 发表于 2020-3-10 09:40

[D4:D21]="=IF(C4=""child"",MID(A4,15,4),"""")"

dmargon · 发表于 2020-3-11 19:00

microyip 发表于 2020-3-10 08:21
用得VBA，又何必用公式填呢？既然要填公式，如2楼说，写一个公式就解决的问题了

如果是单独一个文件，当然就直接写公式了。
这个是正在做的宏里的一部分，其他部分摸索出来了，这部分不会。所以请教下。
谢谢回复

dmargon · 发表于 2020-3-11 22:07

wangweihebtu 发表于 2020-3-10 06:55
B4 D4 =IF(C4="child",MID(A4,15,4),"")

一个公式能解决，为啥非得VBA呢？

因为整个步骤，不止这一步，是正在做的宏的一部分，只不过单独拿出来提问。新手，这部分不会。
谢谢回复

dmargon · 发表于 2020-3-12 01:13

YZC51 发表于 2020-3-10 09:40
[D4:D21]="=IF(C4=""child"",MID(A4,15,4),"""")"

非常感谢，原来这么简洁，根据你的代码，解决了一长串的问题。
谢谢。

dmargon · 发表于 2020-3-12 01:27

YZC51 发表于 2020-3-10 09:40
[D4:D21]="=IF(C4=""child"",MID(A4,15,4),"""")"

还想再问个问题，（有点被自己蠢到，但是的确还没试出来）

如果C列数据为“Child”，则D列填充I列的值
应该怎么写哪。

复制代码

wangweihebtu · 发表于 2020-3-12 08:04

本帖最后由 wangweihebtu 于 2020-3-12 10:35 编辑

dmargon 发表于 2020-3-12 01:27
还想再问个问题，（有点被自己蠢到，但是的确还没试出来）

如果C列数据为“Child”，则D列填充I列的值 ...

你真成，说了半天你最后还是在vba里边用了公式呀

[D4:D21]="=IF(C4=""Child"",I4,"""")"

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

[求助] VBA 判断条件自动填充公式