0

我是 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|      |      |      |
4

1 回答 1

1

如果我正确理解您的问题，您可能不需要 VBA 解决方案。我只需转到 I:K 列并输入一个公式来提取列 B:D 中的值或列 F:H 中的值，如下所示：（以单元格 I2 为例）

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

将该公式的三列拖动到所需的行数，现在单元格 I:K 具有您需要的所有值。然后，您可以复制>>选择性粘贴 - 粘贴值以将所有内容放入 B:D 列。

于 2014-07-06T23:45:53.057 回答