用公式或VBA方式将对应的数据合并

yjwdjfqb · 发表于 2019-11-21 20:45

用公式或VBA方式将对应的数据合并

如图：
QQ截图20191121204257.jpg

用公式或VBA方式将对应的数据合并.rar (7.96 KB, 下载次数: 6)

请老师们帮帮忙，谢谢老师们了！

小小鸟前滚翻 · 发表于 2019-11-21 22:06

已经是高级了，还有这问题？
判断c列的合并单元格行数n，把E列n行合并不就行了？

Goodeve705 · 发表于 2019-11-21 22:17

=PHONETIC(E4:E11)

yjwdjfqb · 发表于 2019-11-21 22:37

小小鸟前滚翻发表于 2019-11-21 22:06
已经是高级了，还有这问题？
判断c列的合并单元格行数n，把E列n行合并不就行了？

老师你好，可以帮我写个这样的VBA么，谢谢了老师！

jiangxiaoyun · 发表于 2019-11-21 23:29

用公式或VBA方式将对应的数据合并.zip (12.04 KB, 下载次数: 7)

feiyang8878 · 发表于 2019-11-21 23:40

本帖最后由 feiyang8878 于 2019-11-21 23:55 编辑

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Rows.Count > 1 Then
Dim arr, i%, arr1
arr = Range(Target.Offset(0, 2).Address).Resize(Target.Rows.Count, 1)
arr1 = Application.WorksheetFunction.Transpose(arr)
Target.Value = Join(arr1, "、")
End If
End Sub

复制代码

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("c1:c222")) Is Nothing Then Cancel = True
End Sub

复制代码

feiyang8878 · 发表于 2019-11-21 23:52

优化了一下，中间有空行过滤，之前的代码没有考虑空白区域，也可以用

yjwdjfqb · 发表于 2019-11-22 08:49

feiyang8878 发表于 2019-11-21 23:52
优化了一下，中间有空行过滤，之前的代码没有考虑空白区域，也可以用

谢谢老师的帮助，就是需要这样的
我想，把二段代码放到一个　sub test()
这样的模板中，数据区域为E4：E100，合并的区域为C4：C100
请老师帮修改下，好吧，谢谢老师了！

yjwdjfqb · 发表于 2019-11-22 09:05

请老师们帮帮忙，谢谢老师们了！

魂断蓝桥 · 发表于 2019-11-22 09:18

Sub a()
Dim i%, r%, j%, s$
[c4:c99] = ""
For i = 4 To 20
r = Cells(i, 3).MergeArea.Rows.Count
For j = i To r + i - 1
      s = s & Cells(j, 5) & ","
Next
      Cells(i, 3) = Left(s, Len(s) - 1)
      s = ""
      i = i + r - 1
Next
End Sub

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

[求助] 用公式或VBA方式将对应的数据合并

评分

评分

最新热点 /1