VBA怎么把几个单元格内容提取再输出到另一个单元格内,以字符串的形式?

比如sheet1中A1到C1的内容分别是5,B,ch。想要在sheet2的A1输出为(5,B,ch)这个带括号的字符串,怎么写vba代码?急求!

通过VBA将一个EXCEL单元格的内容读取到另一个单元格的操作步骤如下:

1,在vba中创建一个录制界面,设置输入按钮,设置输入按钮代码实现输入功能,双击输入按钮,输入代码进入代码窗口。

2,将需要在表单中输入的文本框连接到指定的单元格,继续输入代码中显示的代码,并使用文本文本框的值链接到我们要输入的工作表单元格。

3,设置输入单元格中显示的内容的文本格式,大小,字体,对齐方式等。使用字体设置文本大小并根据输入自动调整单元格宽度。

4,设置取消按钮代码,隐藏表格,当我们按下取消按钮时,它会隐藏输入表格,然后创建一个表格设置为主界面,将工作表名称设置为主界面。

5,在开发工具中插入命令按钮,将命令按钮属性中的标题更改为要显示的文本,然后输入代码将表单调用到按钮,如图所示,效果是单击按钮时您可以调用创建的输入界面。

6,此时,当我们单击登录按钮时,将弹出设置表单。然后我们在表单的文本框中输入相应的内容,内容将根据我们设置的位置显示在相应的单元格中。

温馨提示:内容为网友见解,仅供参考
第1个回答  2020-03-21
sheet2.range("A1") = sheet1.range("A1") &","&sheet1.range("B1") &","& sheet1.range("C1")

...特定单元格提取一部分到另一个单元格,并用提取的那个单元格命名工作...
如果提取到的B6值有重复,在工作表命名时以B6的值+第几次重复的格式来命名:比如TAI10029512-1、TAI10029512-2 假设A6的字符串中前缀是“Invoice No.:”之类的格式,其中前缀中仅包含1个空格和1个英文输入法下的冒号,另外A6单元格的字符串前端不包含空格,即:没有“ Invoice No.:”之类的格式...

求EXCEL宏 提取单元格内的计算式并且得出结果在另一个单元格内。
选择你要计算的单元格,可以是多个单元格。然后修改代码中要存放结果的单元格,运行宏 “计算” 即可。Sub 计算()Dim Rng As Range, S As Double For Each Rng In Selection S = S + jisuan(Rng)Next Range("b1").Value = S '指定结果存放单元格 End Sub Function jisuan(Rng As Range...

VBA excel 提取K列单元格逗号之间的数据,并把这些数据复制到F列的表...
1、如果有数据来源,你可以通过函数来实现。例如:=IF(A2="","",DATE(zdy(F2,0),zdy(F2,1),zdy(F2,2)))然后在【设置单元格格式】数字中自定义格式为:yyyy-mm-dd 2、如果没有数据来源,建议你用“数据有效性”来设置。打开【数据】菜单下的【有效性】对话框 1)有效性条件:允许:日期 ...

vba根据输入的值,提取出指定的数据到另一个表?
在表1中,创建 A 列到 F 列分别对应单号、商品编码、商品名称、门店号、商品数量、操作时间。在表3中,找到对应的单号,提取该单号下的商品编码。在表2中,找到对应的商品编码,并提取该商品的名称和门店号。将单号、商品编码、商品名称、门店号以及操作时间填入表1中对应的列中。在表1中对每个...

vba如何提取单元格内每一行内容或如何获取单元格换行字符
步骤如下:1.将A1按换行符分开到B之后的列中:2.alt+F11,输入如下代码:3.F5运行代码,结果如下:

...打开一系列表格文件并复制里面的数据到另一个表格文件中
Sheet1Set sht = ActiveSheet '保存当前工作表对象fn = Dir(ThisWorkbook.Path & "\\报表-*.xls", vbReadOnly) '打开第一个报表文件Do While fn <> "" '开始循环 Set wb = Workbooks.Open(fn) '以只读模式打开报表文件 '取得报表文件中的日期字符串 theDate = Mid(fn, InStr(fn,...

VBA取单元格的值然后转换下格式
1 To Cells(65536, 1).End(xlUp).Row rq = Cells(i, 1)Cells(i, 2) = Year(rq) & "年" & Month(rq) & "月" & Day(rq) & "日" '输出到B列 'Cells(i, 1) = Year(rq) & "年" & Month(rq) & "月" & Day(rq) & "日" '如果输出到A列用此行 Next End Sub ...

EXCEL 2007 VBA如何从很多类似单元格中截取一段内容?
Cells(r, 1), "#") + 1, InStr(1, Cells(r, 1), "%") - InStr(1, Cells(r, 1), "#") - 1)sheet2.cells(r,1)=t next r 说明 t是提取出你需要的那段字符串 sheet2.cells(r,1)是表2A列,从A1开始。因为你只说放在另一张表中,没说具体放哪儿,我就随便放一个地方。

vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后,在代码窗口中输入VBA语句,比如输入定义变量语句,...

如何用excel中的VBA的正则表达式提取出字符串?
1、首先打开需要编辑的Excel表格,进入到编辑页面中。2、然后点击打开主菜单栏开发工具中的“Visual Basic”选项。3、还可以鼠标右键单击工作标签,选择打开“查看代码”。4、然后在弹出来的窗口中点击输入:Function REFIND(str, re)Dim Reg As New RegExp With Reg .Global = True .Pattern = re S...

相似回答