如果 A1 为空白，则将 B1 中的文本移动到下一行

Question

我有一张表，其中 A1 有国家名称，B1 有价格，国家中的一些字段被删除，是否有一个论坛可以强制 B1 将所有值移动到下一个可用字段，如下图示例。

• 格林纳达是 131.5（正确）
• 瓜德罗普岛是 81.0（正确）
• 危地马拉应该是 131.5
• 几内亚应该是 98.0
• 圭亚那应该是 102.0
• Guyane 法语应该是 185.5 等等

Answer 1

=IF(A1="","",INDEX($B:$B,ROW(A1)-COUNTA($A$1:A1))

将上述内容放在 C1 中并根据需要向下复制，它应该在相邻列中生成一个更正的列表。然后可以复制此列表并将值粘贴回 B，然后删除 C 列。

在 VBA 中有一种更简洁的方法可以做到这一点，但我的大脑此时已被击中，而且我一开始就不是 VBA 程序员。

Answer 2

1. 选择Column A
2. 按 F5
3. 选择Special
4. 选择Blanks
5. 按Ctrl+-
6. 按 Shift+向上
7. 按确定

完成！