VB如何查找excel中例如含有“xxxx"字符的列

with xlsheet
y=1
do while .cells(1,y).value <>"" '以首行有数据为列有数据的判断
x=1
do while .cells(x,1)<>"" '列内判断
if "xxxx" like "*" & .cells(x,1).value & "*" then
.columns(y).Copy
Set xlBook2 = xlApp.Workbooks.Open(App.Path & "\1.xls") '打开1工作表,这行代码你得修改
xlBook2.Paste Destination:=.cells(1,1)
exit do
end if
x=x+1
loop
y=y+1
loop
end with

我看不懂你的程序哪里用到了查找字串的语句。但通常可以设定个变量t, 然后用t=“xxxx”赋值给变量t。

这个可以解决，把要求写清楚，上传，帮你弄。

bu zdd