如何根据输入值，提取相应列

jstvic

            目前卡在了这里，不知道怎么修改可以进行下一步  ，求指点



                  Dim va
                  va = Application.InputBox("选择列", "输入框标题", "J")
                    SHX.Range("D" & X).value = SH.Range("va" & X).value       '默认J列，如何实现手动输入对话框参数，va 可以变动 A B C

jstvic

哪为有空的大神帮忙看看  万分感谢

shiruiqiang

开局一张表，里面让你猜

jstvic

shiruiqiang 发表于 2023-2-19 17:24
开局一张表，里面让你猜

我表述不对吗 ，就是va 如果我改成J  就提取工作表的J列，  但是我想弹出一个窗口，改成D或E，实现输入哪列，提取哪一列

shiruiqiang

jstvic

shiruiqiang 发表于 2023-2-19 17:48

这是原来的 可以提取J列的文件，，现在想变成  弹出一个窗口，输入H或者D， 提取H列或者D列

tanglf188

va不要用引号
Dim va
                  va = Application.InputBox("选择列", "输入框标题", "J")
                    SHX.Range("D" & X).value = SH.Range(va & X).value