表格里的线怎么去掉

问题一：如何将EXCEL的表格线去除 工具-选项-视图-网格线 把勾去掉就行了！

问题二：请问excel表格里这条线怎么去掉？ 呵呵,这是窗口冻结你取消冻结即可

问题三：word文档中如何去掉表格的线？ 第一种方法就畅把不要的线直接擦除。
第二种方法就是选择表格，点击右键中的边框和底纹，选择你要去掉的线就可以。

问题四：excel怎么去掉表格灰线 鼠标在任一工具小图标上，单击右键，出来一个工具窗口。点中间的“命令”，在“窗体”中有一个网格工具，就是排了很多小点的一个，用鼠标点住，按住左键，拉到excel表上的小工具组中，以后想有灰格就点一下，不想有灰格就再点一下。

问题五：怎么将excel表格中的隐形线条去掉？？ 点击“工具”菜单项->“选项”菜单项->选择“视图”选项卡-&g郸;在“窗口选项”列表中，勾去“网格线”前的复选框，即可

问题六：excel表格里的分割线怎么取消 你说的是什鸡分割线？预览后出现的分页虚线么？这个在关闭再重新打开后就不见了。如果是冻结窗格后出现的“分割线”，可以在菜单栏的“窗口”中，“取消冻结窗格”即可。

问题七：excel中如何转换在word中去掉表格上的线，怎么把去掉 是把EXCEL表格复制到WORD中，只保留文字，不保留表格？粘贴时右键选择粘贴选项，只保留文本。

问题八：用EXCEL制表格时，要怎么样去掉格子里不要的线？ 单击“格式”->“单元格”，选择“边框”标签 然后去掉不要的边框就可以了。

问题九：怎么去除word文档表格中的一条线 把光标定位在需要去掉的单元格中，右击－－删除单元格，再选择“删除整列”，确定就可以了。另外还可以通过合并单元格的方法来把它与别的单厂格合并成一个单元格。

问题十：怎样去掉EXCEL表格里面的竖线 选中单元格在工具栏点合并单元格

1用鼠标左键选中需要拆分单元格的表格。2单击开始菜单栏后，在以下选项中找到合并中心。3打开此选项，然后单击底部的“取消合并单元格”。二、鼠标右键拆分。1选择要拆分的单元格，然后轻轻单击鼠标右键。2在d出选项面板的顶部，找到合并图标并单击它。3选择菜单栏中最后一个未合并的单元格。

这个还真的不太好办，用VBA解决，以下是我的解题思路，供参考
我想你的数据必须是有一定的规律的，比如：
1、你说的顺序不同的值之间，必须都是以逗号隔开的，保持一致，这样才可以使用SPLIT函数创建数组
2、VBA里的数组函数太少了，需要编写一个自定义的函数，来求两个数组的比较结果。函数值的类型是逻辑类型；
3、这样就好办了，将每个单元格的值先转换成数组，再与所有其它数组进行比较。发现有相等的，就删除其值
以下VBA代码供参考：

'供快捷键可调用的宏名过程
Public Sub deleteRng()
Dim rng As Range
Set rng = Sheet1Range("A1")CurrentRegion
For i = 1 To rngCellsCount - 1
For j = i + 1 To rngCellsCount - 1
If testarray(rngCells(i), rngCells(j)) Then rngCells(j)Clear
Next
Next
End Sub

'供上面宏名过程调用的内部自定义函数---得出两个单元格的比较结果
Private Function testarray(rng1 As Range, rng2 As Range) As Boolean
If Trim(rng1Value) = Trim(rng2Value) Then
testarray = True
Exit Function
End If
If Len(Trim(rng1Value)) <> Len(Trim(rng2Value)) Then
testarray = False
Exit Function
End If
arr1 = Split(rng1Value, ",")
arr2 = Split(rng2Value, ",")
If UBound(arr1) <> UBound(arr2) Then
testarray = False
Exit Function
End If
If sx(rng1) = sx(rng2) Then
testarray = True
Else
testarray = False
End If
End Function

'供上个自定义函数调用的自定义函数---对单元格内容进行内容重排（重值排序）方便比较
Private Function sx(rng As Range) As String
x = Split(Trim(rngValue), ",")
Dim i As Integer, j As Integer, a, d()
ReDim d(LBound(x) To UBound(x))
For i = LBound(x) To UBound(x)
d(i) = x(i)
Next
If LBound(x) <> UBound(x) Then
For i = LBound(x) To UBound(x) - 1
For j = i + 1 To UBound(x)
If d(j) < d(i) Then
a = d(j)
d(j) = d(i)
d(i) = a
End If
Next
Next
End If
Dim str As String
str = ""
For i = LBound(d) To UBound(d)
If str = "" Then str = d(i) Else str = str & "," & d(i)
Next
rngValue = str
sx = str
End Function

“表A1”要求：除第一行外的数据仅保留10位的

“表B1”要求：除第一行外的数据仅保留16位的

这两点要求的话，点击附件中带文字的图形即可清除，但是你要的去重是将ab中所有数据合并成一列后去重，还是分别ab表的数据合并成一列去重，还是别的？

第一行中每一项所在列的个数，这个也不是很理解，是否可以做个举例说明

鉴于你设置了提取码，我这里也设置了定价1财富值，防止他人误下载

在姓名列后先插入两个辅助列
如果A是原始列，添加列B, C
在B1单元格输入
=right(A1,2)
回车后，将鼠标移到该单元格右下角，指针变成十字形时，双击鼠标，自动向下全部填充
B列全选，复制，在C列选择性粘贴，选择“数值”，这样C列就是需要的数据了，再删除A列和B列即可

---