<em>excel</em> <em>vba</em> 获取文本框的值

数据弄成这样也真是服了你。录制的宏可不行，要用split分割，再计算

下面这段代码的意百思是应该能度看懂吧，意思是当您单击窗问体上的命令按钮CommandButton1时，答Sheet1这个工作表A1单元格的专值来自窗体上的文本属框TextBox1
Private Sub CommandButton1_Click()
Sheet1.Range("A1") = TextBox1.Text
End Sub

1、Excel中有数据度如下图所示，将所有的数据合并到B1单元格问中。

2、按下Alt+F11，打开VBA编辑界面，双击数据所在的工作表，如答下图内所示。

3、输入代码如下图所示：Sub 鱼目混珠() Range("B1") = Range("A1") & Range("A2") & Range("A3") & Range("A4") End Sub。

4、点击运行子程序按钮，如下图所示。

5、关闭VBA编辑界面，返回到Excel中，就可以看到A1:A4的内容合容并到了B1单元格中，如下图所示。

sub xx()
n=cells(4^8,3).end(3).row
for i=1 to n
if cells(i,3)<>"" and cells(i,1)<>"" then
x=0
for j= 1 to len(cells(i,1))
a=mid(cells(i,1),j,1)
if instr(cells(i,3),a)>0 then x=x+1
next
if x=2 then cells(i,2)=cells(i,3)
endif
next
end sub