根据使用者输入查询跟分列 VBA

rayhen · 发表于 2023-6-30 09:24

本帖最后由 rayhen 于 2023-6-30 10:00 编辑

任何帮助，将不胜感激！

任何帮助，将不胜感激！

cidanji · 发表于 2023-6-30 09:51

试下看看，是不是这效果

外块300 · 发表于 2023-6-30 09:57

本帖最后由外块300 于 2023-6-30 10:14 编辑

根据标签提示操作

第一个多了一张表，无法运行。后面的不知道能不能用

rayhen · 发表于 2023-6-30 09:59

没有花了,改天再送

ykcbf1100 · 发表于 2023-6-30 10:22

参与一下吧。

niko88819 · 发表于 2023-6-30 10:47

工作表或选项卡名称：result

C2单元格公式，向下拖动

复制代码

Function GV(rngNames As Range, itemName As String, rngValues As Range) As Variant
Dim nameIndex As Variant
nameIndex = Application.Match(itemName, rngNames, 0)
If IsError(nameIndex) Then
GV = "Item not found"
Exit Function
End If
Dim values() As String
values = Split(rngValues.Cells(nameIndex).Value, ",")
GV = values
End Function

复制代码

A2单元格公式，向下拖动

复制代码

Function CustomVLookup(valueToLookup As Variant, lookupRange As Range, colIndex As Long) As Variant
If valueToLookup = "" Then
CustomVLookup = ""
Else
CustomVLookup = Application.VLookup(valueToLookup, lookupRange, colIndex, False)
End If
End Function

复制代码

lizhipei78 · 发表于 2023-7-1 10:39

直接分列
搞这么麻烦做什么

rayhen · 发表于 2023-7-2 08:15

感谢各位老师,您们太棒了

wanao2008 · 发表于 2023-7-2 08:42

录制宏代码如下：
Sub Macro1()
' byWanao
Columns("B:B").TextToColumns DataType:=xlDelimited, Comma:=True
End Sub
不知道是不是这个意思？

rayhen · 发表于 2023-7-2 08:57

wanao2008 发表于 2023-7-2 08:42
录制宏代码如下：
Sub Macro1()
' byWanao

老师,您的方法不行

		自动登录	找回密码
密码			免费注册

[已解决] 根据使用者输入查询跟分列 VBA