Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如果偏移相同，则根据以下值填充空单元格_Excel_Vba - Fatal编程技术网
Fatal编程技术网
  • excel/
  • Excel 如果偏移相同，则根据以下值填充空单元格

Excel 如果偏移相同，则根据以下值填充空单元格

excel vba

Excel 如果偏移相同，则根据以下值填充空单元格,excel,vba,Excel,Vba,我想用下面的值填充B列上的空单元格，但前提是A列上的偏移量相同，并且必须对数千个不同的名称和值执行此操作 我有这个，但实际上我需要相反的结果（例如，如果列A上的偏移量相同，则根据下面的值填充顶部值） 例如： Column A Column B ----------------- - BMW blue - Audi blank (should fill in as red because Audi = Audi on A) - Audi red - Audi g

我想用下面的值填充B列上的空单元格，但前提是A列上的偏移量相同，并且必须对数千个不同的名称和值执行此操作

我有这个，但实际上我需要相反的结果（例如，如果列A上的偏移量相同，则根据下面的值填充顶部值）

例如：

Column A Column B
-----------------

 - BMW     blue
 - Audi    blank (should fill in as red because Audi = Audi on A)
 - Audi    red
 - Audi    green
谢谢

尺寸c作为范围
对于Application.Intersect（ActiveSheet.Columns（2）、ActiveSheet.UsedRange.Cells）中的每个c
如果Len（Trim（c.value））=0，c.offset（0，-1）.value=c.offset（1，-1）.value，则
c、 值=c偏移量（1，0）。值
如果结束
下一个c
然后将
R[-1]
更改为
R[1]
@ScottCraner谢谢！我尝试过，但显示“未找到空单元格”，尽管B上的空单元格满足条件。如果单元格中有公式，则它们不是空的。您需要循环范围并测试如果
=“”
@ScottCraner是的，在可见的“空单元格”中有公式，我如何仍然实现目标？对于if函数，我首先向后计算，例如如果A列上的偏移量相同，则取上面的值，现在我需要另一种方法，但所谓的“空单元格”中有公式……它们是数千。。

Column A Column B
-----------------

 - BMW     blue
 - Audi    blank (should fill in as red because Audi = Audi on A)
 - Audi    red
 - Audi    green