Pergunta : Copiar dados das folhas de acordo com o encabeçamento secundário.

Olá! os peritos, peritos da necessidade do

I ajudam a criar um macro para copiar dados da folha Ch1-Ch7 às folhas das “queixas”, “das edições internas”, “das edições externas” e da “observação” baseadas no encabeçamento secundário “CH-1” nas folhas a CH7. o

I copiou manualmente poucos dados nas folhas para o perusal dos peritos. Os peritos da esperança podem ajudar-me a criar este macro. Uniu o manual de instruções para os peritos perusal.



 class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >Report.xls " fileSize " > (90 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
class= " descrição " >xls
do
o class= de
do >
class= do

Resposta : Copiar dados das folhas de acordo com o encabeçamento secundário.

Olá! Theva,

tentar este.

Kris
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:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:

Opção explícita

CompileData secundário ()
rngToCompile não ofuscante    como a escala
rngArea não ofuscante         como a escala
Escurecer i               como por muito tempo
Escurecer o wksName         como a corda
Escurecer r               como por muito tempo
Escurecer MySheets
Escurecer wksCompile      como a folha
Escurecer o rCell           como a escala

Ajustar wksCompile = folhas (a “compilação”)

MySheets = disposição (“CH1”, “CH2”, “CH3”, “CH4”, “CH5”, “CH6”, “CH7”) '< adjust="" sheet="" names="" here="" Application="">
Outras soluções  
 
programming4us programming4us