gpt4 book ai didi

excel - 如何搜索列并返回具有特定值的下一列中的值

转载 作者:行者123 更新时间:2023-12-04 21:41:08 27 4
gpt4 key购买 nike

我有一个包含列和多个工作表的 Excel 工作表。我想将 A 列从 Sheet1 复制到 Sheet2。然后,一旦我复制了 A 列,我希望 Sheet2 中的 B 列在 A 中的每个填充单元格附近具有一个特定值(在本例中为“D”)。我只被下面的代码所困扰。

例子:

Sheet1 包含:

Column A      B      C
Arthur 1 34
Bertha 2 35

Sheet2 必须具有:
Column A      B
Arthur "D"
Bertha "D"

卡住了代码:
Worksheets("Sheet1").Columns("A").Copy ActiveCell.Columns("A:A").Columns("A")

最佳答案

这是你正在尝试的吗?

Option Explicit

Sub Sample()
Dim wsI As Worksheet, wsO As Worksheet
Dim lRow As Long

Set wsI = Sheets("Sheet1")
Set wsO = Sheets("Sheet2")

wsI.Columns(1).Copy wsO.Columns(1)

lRow = wsO.Range("A" & wsO.Rows.Count).End(xlUp).Row

wsO.Range("B1:B" & lRow).Value = "D"
End Sub

关于excel - 如何搜索列并返回具有特定值的下一列中的值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10958105/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com