Pergunta : Modificar Excel VBA para incluir uma escala das pilhas

Eu preciso de modificar este código ligeiramente desobstruído uma escala das pilhas em vez de cancelar apenas uma pilha específica.  Alguma sugestão?

class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
>Sub notpretty zapit2 " do class= " do id= " codeSnippet847420 do
class= do

Resposta : Modificar Excel VBA para incluir uma escala das pilhas

Eu vi sua pergunta mais adiantada mas não a afixei porque o cyberkiwi a teve coberta

Este era meu esforço

A escala pode ser mudada aqui

   Ajustar rng1 = cruzam-se (ActiveSheet.UsedRange, colunas (“A”))

para o uso inteiro da folha

   Ajustar rng1 = ActiveSheet.UsedRange

para as colunas A: D

Ajustar rng1 = cruzam-se (ActiveSheet.UsedRange, colunas (“A: D”))

etc.

Elogios

Dave
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

'Pressionar Alt + F11 para abrir o editor de Visual Basic (VBE)
'Do menu, escolher o Introduzir-Módulo.
'Colar o código na janela right-hand do código.
'Pressionar Alt + F11 para fechar o VBE
'Ir ao macro das ferramentas……. Macro e double-click DelRow_OnColumn

DelRow_OnColumn secundário ()
    Rng1 não ofuscante como a escala, rng2 como a escala, cel como a escala
    FirstAddress não ofuscante como a corda
    AppCalc não ofuscante como por muito tempo
    MyArr não ofuscante
    Varr não ofuscante

    MyArr = disposição (“Widget1”, “Product1”)

    Ajustar rng1 = cruzam-se (ActiveSheet.UsedRange, colunas (“A”))
    Se rng1 não é nada então retirar o submarino

    Com aplicação
        AppCalc =. Cálculo
        .ScreenUpdating = falso
        . Cálculo = xlCalculationManual
    Extremidade com

    Para cada varr em MyArr
        Ajustar cel = rng1.Find (varr, xlValues, xlPart, os xlByRows)
        Se não o cel não é nada então
            FirstAddress = cel. Endereço
            Fazer
                Ajustar cel = rng1.FindNext (o cel)
                'testar para evitar terminar acima com seleções do mutliple em uma fileira para suprimir
                Se cel. Endereço <> FirstAddress então
                    Se não rng2 não é nada então
                        Ajustar rng2 = união (rng2, o cel)
                    Mais
                        Ajustar rng2 = cel
                    Terminar se
                Terminar se
            Dar laços quando FirstAddress <> cel. Endereço
        Terminar se
    Varr seguinte

    Se não rng2 não é nada então rng2.Clear

    Com aplicação
        .ScreenUpdating = retificam
        . Cálculo = AppCalc
    Extremidade com
Outras soluções  
 
programming4us programming4us