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列。