Office及VBA技术交流

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 1850|回复: 0

Excel VBA 连接一个区域中的每个单元格的值

[复制链接]
  • TA的每日心情

    2016-2-20 08:02
  • 签到天数: 1 天

    [LV.1]初来乍到

    88

    主题

    155

    帖子

    625

    积分

    高级会员

    Rank: 4

    积分
    625
    发表于 2016-3-23 17:46:39 | 显示全部楼层 |阅读模式

    Excel VBA 连接一个区域中的每个单元格的值:

    将以下代码添加到当前工作簿的一个模块中,然后直接就可以在Excel单元格中当成函数来使用了。
    1. Function concatenateString(r As Range) As String
    2.     Dim str As String
    3.     For Each cell In r
    4.         str = str & cell
    5.     Next
    6.     concatenateString = str
    7. End Function
    复制代码
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    手机版|小黑屋|Office Master ( 蜀ICP备16003423号 )

    GMT+8, 2019-10-19 02:40 , Processed in 0.266220 second(s), 24 queries .

    Office Master

    快速回复 返回顶部 返回列表