判断后一个单元格是不是前一个单元格+1，如果是就合并

蔡训博 · 发表于 2018-7-21 17:48

下班，继续。。。。。

wuyunxz · 发表于 2018-7-21 20:37

Option Explicit

Sub test()

Dim i, iRows, k, n As Integer
iRows = Cells(Cells.Rows.Count, 1).End(3).Row
For i = 4 To iRows
   '通过指定字符的相似长度来判断（我只能在你的数据中找出这个容易操作的规律）
   If Left(Cells(i, 1).Value, 3) <> Left(Cells(i + 1, 1).Value, 3) Then
      k = k + 1
      If k = 1 Then
         With Range("E4:E" & i)
                  .Merge
                  .HorizontalAlignment = xlCenter
                  .VerticalAlignment = xlCenter
                  .WrapText = True
         End With
         Range("E4").Value = Cells(4, 1).Value
         n = i + 1
      Else
         With Range("E" & n & ":E" & i)
                  .Merge
                  .HorizontalAlignment = xlCenter
                  .VerticalAlignment = xlCenter
                  .WrapText = True
         End With
         Range("E" & n).Value = Cells(n, 1).Value
         n = i + 1
      End If
   End If
Next i

End Sub

wuyunxz · 发表于 2018-7-21 20:39

请测试：

test.rar (17.79 KB, 下载次数: 4)

wuyunxz · 发表于 2018-7-21 20:46

主要是楼主的数据有数字，这个就不好搞了，如果你的数字部分不是连续的，怎么好处理？！！！怎么判断后面的是不是加1 。最好的是指定相似字符的长度，然后再处理。这样就比较好搞

蔡训博 · 发表于 2018-7-21 21:31

wuyunxz 发表于 2018-7-21 20:39
请测试：

如果部分数字不连续的，不管他，一样从头循环处理就好
先判断最后一位如果最后一位是9下个单元格判断是否后两位为10（判断后两位）
这是6楼的想法，我觉得这样可能更好，希望能帮忙，我基本是小白

000032.rar (18.75 KB, 下载次数: 0)

幻V无极 · 发表于 2018-7-21 22:33

思路就是取最后一位数字，遇到0就取最后两位数字，从最底下向上做对比，如果差1 就合并取上面的数值，循环就可以变成右边的样子

蔡训博 · 发表于 2018-7-21 23:09

幻V无极发表于 2018-7-21 22:33
思路就是取最后一位数字，遇到0就取最后两位数字，从最底下向上做对比，如果差1 就合并取上面的数值，循环 ...

能做就帮忙一下

蔡训博 · 发表于 2018-7-22 07:11

顶起来。。。。。。

一把小刀闯天下 · 发表于 2018-7-22 09:53

'wps 2016专业版

Option Explicit

Sub test()
  Dim i, j, row, a, b
  Application.DisplayAlerts = False
  row = Cells(Rows.Count, "a").End(xlUp).row + 1
  For i = 4 To row
a = getnum(Cells(i, "a").Value)
For j = i + 1 To row
   b = getnum(Cells(j, "a"))
   If b - a = 1 Then
      a = b
   Else
      If IsNumeric(Cells(j, "a")) And IsNumeric(Cells(j - 1, "a")) Then
      a = Val(Cells(j - 1, "a")): b = Val(Cells(j, "a"))
      If Val(Right(b, IIf(Len(a) = Len(b), 1, 2))) - Val(Right(a, 1)) <> 1 Then
         Cells(i, "a").Resize(j - i).Merge
         i = j - 1: Exit For
      End If
      Else
      Cells(i, "a").Resize(j - i).Merge
      i = j - 1: Exit For
      End If
   End If
  Next j, i
  Application.DisplayAlerts = True
End Sub

Function getnum(t) As Long
  Dim i
  If Not IsNumeric(t) Then
For i = Len(t) To 1 Step -1
   If Not IsNumeric(Mid(t, i, 1)) Then
      getnum = Val(Mid(t, i + 1)): Exit Function
   End If
Next
  End If
  getnum = Val(t)
End Function

蔡训博 · 发表于 2018-7-22 14:56

一把小刀闯天下发表于 2018-7-22 09:53
'wps 2016专业版

Option Explicit

就差一点，也有意外的惊喜，就是超过20的不能合并，希望能再帮忙改改

000033.rar (19.51 KB, 下载次数: 3)

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

[求助] 判断后一个单元格是不是前一个单元格+1，如果是就合并

评分

评分