[已解决]去除框线、背景颜色和字体颜色

chmmm

我又来了，嘻嘻。这次的问题是：我把数据复制过来的时候格式啊背景色字体色什么的也跟着过来了。有什么办法能方便地去除框线啊背景色之类的。我复制用的是copy语句，有看到别人说用value=会不带格式，可是那样会明显慢很多。如果能有快速复制数据不带格式的方法也行。先拜谢各位高手了。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-7-10 17:42

Sub test2()
    Dim A(), B
    Dim r, c, i, j, k

    B = Sheet2.Range("a1").CurrentRegion
    r = UBound(B): c = UBound(B, 2)
    B(r, 1) = 1 '加标记

    For j = 1 To c
        If B(r, j) > 0 Then
            k = k + 1
            ReDim Preserve A(1 To r, 1 To k)
            For i = 1 To r
                A(i, k) = B(i, j)
            Next i
        End If
    Next j
    A(r, 1) = "" '取消标记
   
    With Sheet1
        .Cells.Clear
        .Range("a1").Resize(r, k) = A
    End With
End Sub


求助again2.rar (20.41 KB, 下载次数: 19)

2013-7-10 17:44 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

选择性粘贴不带格式嘛。

chmmm

hwc2ycy 发表于 2013-7-10 16:36
选择性粘贴不带格式嘛。

你能用VBA实现吗？

jxncfxsf

sheets("   ").range(" ").Copy
sheets("    ").Range("   ").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

chmmm

jxncfxsf 发表于 2013-7-10 16:58
sheets("   ").range(" ").Copy
sheets("    ").Range("   ").PasteSpecial Paste:=xlPasteValuesAndNumb ...

这个还挺快的，不过有办法去除背景颜色和字体颜色吗？谢谢

爱疯

Sub test2()
    Dim A(), B
    Dim r, c, i, j, k

    B = Sheet2.Range("a1").CurrentRegion
    r = UBound(B): c = UBound(B, 2)
    B(r, 1) = 1 '加标记

    For j = 1 To c
        If B(r, j) > 0 Then
            k = k + 1
            ReDim Preserve A(1 To r, 1 To k)
            For i = 1 To r
                A(i, k) = B(i, j)
            Next i
        End If
    Next j
    A(r, 1) = "" '取消标记
   
    With Sheet1
        .Cells.Clear
        .Range("a1").Resize(r, k) = A
    End With
End Sub


求助again2.rar (20.41 KB, 下载次数: 19)

2013-7-10 17:44 上传

点击文件名下载附件

jxncfxsf

sheets("   ").range(" ").Copy
sheets("    ").Range("   ").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

chmmm

jxncfxsf 发表于 2013-7-10 18:06
sheets("   ").range(" ").Copy
sheets("    ").Range("   ").PasteSpecial Paste:=xlPasteValues, Operat ...

背景颜色和字体颜色还是没有变诶。还是谢谢你。

chmmm

爱疯 发表于 2013-7-10 17:42
Sub test2()
    Dim A(), B
    Dim r, c, i, j, k

好厉害，虽然没怎么看懂。非常感谢。