Kopsavilkums
Programmā Microsoft Excel makro var izmantot, lai savienotu blakus divās kolonnās sakārtotus datus, un rezultātu parādīšana kolonnā pa labi no kolonnas, kuras satur datus. Šajā rakstā ir paraugs Microsoft Visual Basic for Applications (VBA) makro (apakšprocedūra), lai to paveiktu.
Papildinformācija
Microsoft piedāvā programmēšanas piemērus tikai uzskatāmībai, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti. Taču viņi nemainīs šos piemērus, lai sniegtu skaidrākus, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.
Parauga Visual Basic for Applications (VBA) makro
Sub ConcatColumns()
Do While ActiveCell <> "" 'Loops until the active cell is blank.
'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.
ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Piezīme: paziņojumu ActiveCell.Offset (0, 1). FormulaR1C1 var aizstāt ar paziņojumu ActiveCell.Offset (0, 1). Formulu. Tos var izmantot ar vienādu veiksmes, ja lietojat teksta un skaitļu tikai (nevis formulu). R1C1 izmanto pirmajā paziņojumu beigās attiecas uz rindas, kolonnas vienu un ir izmantota palīdzības piemēri.
Kā izmantot makro programmā Microsoft Office Excel 2007
-
Atveriet darbgrāmatu, kurā ir dati.
-
Nospiediet taustiņu kombināciju ALT + F11, lai palaistu Visual Basic redaktoru.
-
Ievietot izvēlnē noklikšķiniet uz Ievietot moduli modulis . Ievadiet moduļa koda logā makro.
-
Izvēlnē Fails noklikšķiniet uz Aizvērt un atgriezties programmā Microsoft Excel.
-
Atlasiet darblapu, kurā ir dati, ko vēlaties savienot.
-
Noklikšķiniet uz augšējā labajā pusē datus, kurus vēlaties savienot šūnas. Piemēram, ja šūnas A1: A100 un B1:B100 datus, noklikšķiniet uz šūnas B1.
-
Noklikšķiniet uz cilnes Izstrādātājs . Ja cilne Izstrādātājs nav redzama, veiciet tālāk norādītās darbības.
-
Noklikšķiniet uz pogas Microsoft Office un pēc tam noklikšķiniet uz opcijas Excel.
-
Noklikšķiniet uz populāriem.
-
Noklikšķiniet, lai atzīmētu izvēles rūtiņu Rādīt lentē izstrādātāja cilni .
-
Noklikšķiniet uz Labi , lai aizvērtu dialoglodziņu Excel opcijas .
-
-
Grupā kods noklikšķiniet uz makro .
-
Atlasiet ConcatColumns makro, un pēc tam noklikšķiniet uz palaist.
Kā izmantot makro programmā Microsoft Office Excel 2003 un vecākās programmas Excel versijās
-
Atveriet darbgrāmatu, kurā ir dati.
-
Nospiediet taustiņu kombināciju ALT + F11, lai palaistu Visual Basic redaktoru.
-
Ievietot izvēlnē noklikšķiniet uz Ievietot moduli modulis . Ievadiet moduļa koda logā makro.
-
Izvēlnē Fails noklikšķiniet uz Aizvērt un atgriezties programmā Microsoft Excel.
-
Atlasiet darblapu, kurā ir dati, ko vēlaties savienot.
-
Noklikšķiniet uz augšējā labajā pusē datus, kurus vēlaties savienot šūnas. Piemēram, ja šūnas A1: A100 un B1:B100 datus, noklikšķiniet uz šūnas B1.
-
Izvēlnē Rīki norādiet uz makroun pēc tam noklikšķiniet uz makro. Atlasiet ConcatColumns makro, un pēc tam noklikšķiniet uz palaist.
Atsauces
Lai iegūtu papildinformāciju par Visual Basic for Applications, noklikšķiniet uz šī raksta numura un lasiet Microsoft zināšanu bāzes rakstu:
226118 sarakstu ar resursiem, kas ir pieejama, lai palīdzētu apgūt Visual Basic for Applications programmēšanu
