删除首行，合并单元格不删除

hzamiao

太多了，请求帮助下，删除首行（黄色行），后面的合并单元格内容不删除。

劲钟华

我用excel2013，有个笨办法，也许能临时解决一下。
复制表格，选匹配目标格式粘贴到excel。同时选中D2、E2，在文本上方插入行-活动单元格下移，筛选出不要的行-删除整行。然后再合并单元格复制粘贴回word。可以在论坛找找怎么批量合并。

daibao88

先找出合并单元格相关的特征规律，如合并单元格的左侧第一格末尾是-2，可以用VBA逐个解决。
复制到EXCEl再复制回来，可能需要再调整格式什么的

zhanglei1371

VBA可以解决。但是非常费劲。没有1h以上搞不定。做了一半就放弃了。

sylun

如果不考虑字符格式，可试试如下代码

1. Sub test()
   
2.     '删除第一列单元格中只包含有一个连字符的下一整行
   
3.     Dim i%, n%, celltext1$, celltext2$
   
4.    
   
5.     Application.ScreenUpdating = False
   
6.     With ActiveDocument.Tables(1)
   
7.         For i = 1 To .Rows.Count
   
8.             If UBound(Split(.Cell(i, 1).Range.Text, "-")) = 1 Then
   
9.                 celltext1 = Replace(.Cell(i + 1, 4).Range.Text, Chr(13) & Chr(7), "")
   
10.                 celltext2 = Replace(.Cell(i + 1, 5).Range.Text, Chr(13) & Chr(7), "")
    
11.                 .Cell(i + 1, 1).Delete 2
    
12.                 .Cell(i + 1, 4).Range.Text = celltext1
    
13.                 .Cell(i + 1, 5).Range.Text = celltext2
    
14.                 n = n + 1
    
15.             End If
    
16.         Next
    
17.     End With
    
18.     Application.ScreenUpdating = True
    
19.     MsgBox "共删除了" & n & "行", 64
    
20. End Sub

复制代码