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栏中的所有信息都应保持原样。

任何帮助都将非常感谢!!

编辑我的（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具有您需要的所有值。然后，您可以复制＆gt;＆gt;选择性粘贴 - 粘贴值以将所有内容放入B列：D。

符合另一个工作表标准的VBA复制单元格

1 个答案: