根据变量n的值,决定内容合并单元格内容列数,代码怎么修改,谢谢！

feixiangye · 发表于 2018-7-13 10:57

想要根据鼠标选中的列数来合并单元格内容，举例:如鼠标选中了两列:则A1&B1内容合并在一起；选中3列:则A1&B1&C1,以此类推）
代码写到这里的时候,如下红色标记的地方不知道该怎么写,求助帮忙指导，谢谢！
  n = Selection.Columns.Count
  If n > 2 Then n = n Else n = 2
For i = 1 To UBound(arr)
      brr(i, 1) = brr(i, 1) & brr(i, 2)  ‘这里想要:如果n=2则brr(i, 1) & brr(i, 2)；n=3则 brr(i, 1) & brr(i, 2) & brr(i, 3),以此类推,代码该怎么改
Next

	A	B	C	D
1	A1	B1	C1	D1

不知道为什么 · 发表于 2018-7-13 11:00

加个列循环啊，for j=1 to n

feixiangye · 发表于 2018-7-13 11:03

不知道为什么发表于 2018-7-13 11:00
加个列循环啊，for j=1 to n

谢谢您的关注，brr(i, 1) = 后面这里该怎么写，

不知道为什么 · 发表于 2018-7-13 11:11

feixiangye 发表于 2018-7-13 11:03
谢谢您的关注，brr(i, 1) = 后面这里该怎么写，

用个变量，ms=ms&brr（i，j）brr（i，1）=ms

手机操作，提供建议

feixiangye · 发表于 2018-7-13 11:32

不知道为什么发表于 2018-7-13 11:11
用个变量，ms=ms&brr（i，j）brr（i，1）=ms

手机操作，提供建议

这样不行的，不是我想要的结果，谢谢！

feixiangye · 发表于 2018-7-13 16:29

帖子要沉底了吗，求前辈帮忙解答一下，谢谢！

zhenghui13 · 发表于 2018-7-13 17:29

我一直觉得合并单元格不是太好的方法，请查看是否是需要的效果。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim arr
Dim i, j
Dim n
Dim tmp$
Application.DisplayAlerts = False
arr = Selection
n = Selection.Cells.Count
If n > 1 Then
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
tmp = arr(i, j) & "/" & tmp
Next j
Next i
Selection.Merge
Target.Value = tmp
End If
Application.DisplayAlerts = True
End Sub

复制代码

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

[求助] 根据变量n的值,决定内容合并单元格内容列数,代码怎么修改,谢谢！

评分

评分

最新热点 /1