求教,一个EXCEL表中多个SHEET同时修改相同的格式

guowei886

有个问题想请教下,我有一个EXCEL表,里面有10个SHEET(SHEET1~~SHEET10)，里面是相同类型＼相同格式的不同数据．
每次对这10个SHEET的格式要进行相同的修改,是否可以设置一下按键然后直接进行处理.
按键的功能如下: (只对SHEET1~SHEET10执行,其他的SHEET不用执行,只针对当前EXCEL表, 同时开着的EXCEL不执行)
第一步:先选中整个SHEET,然后复制粘贴成值. (因为表里有公式,不粘贴成值后面的操作会有问题)
第二步:每个SHEET 要删掉固定的D列H,I列,K,L列, O~Y列
第三步:把删完后的数据都转化成数值.(因为数据是系统导出来的,有些数据的左上角带着一个三角型无法计算)

是否有哪位高手能指点.谢谢

liulang0808

楼主先录制一段，对某个表操作的宏，然后增加一层for循环，再 调整代码即可

lsc900707

没有附件的提问很难获得满意的答复。

xiangbaoan

Sub test()
Dim a, sh As Worksheet, i%
a = Array("d1", "e1", "f1", "k1", "l1", "o1", "p1", "q1", "r1")
For Each sh In Worksheets
    With sh
        .UsedRange = .UsedRange.Value
        For i = UBound(a) To LBound(a) Step -1
            .Range(a(i)).Delete 4
        Next
    End With
Next
End Sub

guowei886

liulang0808 发表于 2018-9-19 22:03
楼主先录制一段，对某个表操作的宏，然后增加一层for循环，再 调整代码即可

大神,我今天按你的方法自己录了一个宏,但是再弄循环就不会了, 能不能帮忙搞一下.(宏里面包含了对一个SHEET的整个操作)
希望这个只能作用于SHEET1~~SHEET10, 其他的SHHET不用执行.
而且希望只针对于当前的EXCEL表, 其他同时开着的EXCEL表不执行.

谢谢

guowei886

朱荣兴 发表于 2018-9-19 22:04
一个循环搞定的事，前提是有附件

大神,我今天自己录了一个宏,但是再弄循环就不会了, 能不能帮忙搞一下.(宏里面包含了对一个SHEET的整个操作)
希望这个只能作用于SHEET1~~SHEET10, 其他的SHHET不用执行.
而且希望只针对于当前的EXCEL表, 其他同时开着的EXCEL表不执行.


谢谢

guowei886

xiangbaoan 发表于 2018-9-20 09:01
Sub test()
Dim a, sh As Worksheet, i%
a = Array("d1", "e1", "f1", "k1", "l1", "o1", "p1", "q1", "r ...

非常谢谢,试了一下, 还有点操作没达到要求.

guowei886

lsc900707 发表于 2018-9-20 07:04
没有附件的提问很难获得满意的答复。

大神,我上传了个附件,您给看看

xiangbaoan

guowei886 发表于 2018-9-20 18:43
非常谢谢,试了一下, 还有点操作没达到要求.

………………