符合标准的VBA复制单元到另一个工作表
我是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栏中的所有信息应该保持在原来的位置。
任何帮助将非常感激！！
编辑我（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| | | |
如果我正确理解你的问题，你可能不需要VBA解决scheme。 我只想到列I：K并input一个公式，以便从列B：D或列F：H中的值中提取值，如下所示（单元格I2的示例）
=IF(B2="",F2,B2)
根据需要将该公式的三列纵向拖放多行，现在单元格I：K具有所需的所有值。 然后，您可以复制>>select性粘贴 – 粘贴值以将所有内容都放入列B：D中。