VBA将符合条件的单元格复制到另一张工作表

Question

我是VBA的新手。 如果Sheet 2上的单元格与第一列中列出的值匹配，我想将一系列单元格从Sheet1复制到Sheet2。 例如，我想从SHEET1开始，然后使数据看起来像下面的SHEET2：

SHEET1
A2=Adam B2=95 C2=92 D2=97 E2=67 F2 blank G2 blank H2 blank
A3=Cindy B3 blank C4 blank D4 blank E4=61 F4=94 G4=95 H4=95

SHEET2
A2=Adam B2=95 C2=92 D2=97 E2=67
A3=Cindy B3=94 C4=95 D4=95 E4=61

在此示例中，我想首先将信息从Sheet1 B2：D2复制到Sheet2 B2：2。 然后，我想复制Sheet1 F3：H3中的信息，并填写Sheet 2 B3：D3中的空白。 E列中的所有信息都应保留在原处。

任何帮助将非常感激！！

Edit My（Tony Dallimore）尝试将Sheet1和Sheet2的描述转换为更直观的内容：

Sheet1
   |  A   |  B   |  C   |  D   |  E   |  F   |  G   |  H   |
 2 |Adam  |    95|    92|    97|    67|      |      |      |
 3 |Cindy |      |      |      |      |      |      |      |
 4 |      |      |      |      |    61|    94|    95|    95|

Sheet2
   |  A   |  B   |  C   |  D   |  E   |  F   |  G   |  H   |
 2 |Adam  |    95|    92|    97|    67|      |      |      |
 3 |Cindy |    94|      |      |      |      |      |      |
 4 |      |      |    95|    95|    61|      |      |      |

Answer 1

如果我正确理解您的问题，则可能不需要VBA解决方案。 我只需要转到I：K列，然后输入公式即可提取B：D列中的值或F：H列中的值，例如：（单元格I2的示例）

=IF(B2="",F2,B2)

将该公式三列拖动到所需的任意数量的行上，现在单元格I：K具有所需的所有值。 然后，您可以复制>>粘贴特殊-粘贴值，以将所有内容放入B：D列。