gpt4 book ai didi

Excel - 根据一个单元格中的输入自动填充列

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

enter image description here

在 excel 中,当我在“输入列”中输入“A”时,我希望自动填充 Harry、Josh、Rob 和 Peter,如图所示。

同样,当我在“输入列”中输入“B”时,我希望自动填充 Kim、Nancy、Paul、George。任何人都可以发布 VBA 代码来执行此操作,或者我可以自己使用公式吗?

最佳答案

自动化代码解决方案:

  • 右键单击您的工作表选项卡并选择查看代码
  • 复制粘贴下面的代码
  • 按 Alt+F11 返回 Excel

  • 每当 Column A 中的一个或多个单元格时,此代码就会进行所需的更改。 (即您的“目标列”)已更改

    要改用 B 列,请尝试 Set rng1 = Intersect(Target, Columns("B"))ETC

    代码
        Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng1 As Range
    Dim rng2 As Range
    Set rng1 = Intersect(Target, Columns("A"))
    If rng1 Is Nothing Then Exit Sub
    With Application
    .EnableEvents = False
    .ScreenUpdating = False
    End With
    For Each rng2 In rng1
    Select Case UCase$(rng2.Value)
    Case "A"
    rng2.Offset(0, 1).Resize(1, 2) = Array("Harry", "Josh")
    rng2.Offset(1, 1).Resize(1, 2) = Array("Rob", "Peter")
    Case "B"
    rng2.Offset(0, 1).Resize(1, 2) = Array("Kim", "Nancy")
    rng2.Offset(1, 1).Resize(1, 2) = Array("Paul", "George")
    End Select
    Next
    With Application
    .EnableEvents = True
    .ScreenUpdating = True
    End With
    End Sub

    关于Excel - 根据一个单元格中的输入自动填充列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13811881/

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