VBA makro datu kolonnu savienošanai programmā Excel

Attiecas uz
Excel 2010

Kopsavilkums

Programmā Microsoft Excel varat izmantot makro, lai savienotu datus divās blakus esošās kolonnās un rādītu rezultātu kolonnā pa labi no kolonnām, kurās atrodas jūsu dati. Šajā rakstā ir sniegts Microsoft Visual Basic for Applications (VBA) makro (procedūra Sub) paraugs, lai to paveiktu.

Papildinformācija

Microsoft sniedz programmēšanas piemērus tikai ilustrācijai, bez tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai piemērotībai noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt demonstrējamo programmēšanas valodu un rīkus, kas tiek izmantoti procedūru izveidei un atkļūdošanai. Microsoft atbalsta inženieri var palīdzēt izskaidrot konkrētās procedūras funkcionalitāti. Tomēr tie nemodificēs šos piemērus, lai nodrošinātu papildu funkcionalitāti vai veidotu procedūras atbilstoši jūsu konkrētajām prasībām.

Visual Basic for Applications (VBA) makro paraugs


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. Priekšraksts ActiveCell.Offset(0, 1). FormuluR1C1 var aizstāt ar priekšrakstu ActiveCell.Offset(0, 1). Formula. Tos var izmantot ar vienādiem panākumiem, ja izmantojat tikai tekstu un skaitļus (nevis formulas). Pirmā priekšraksta beigās izmantotais R1C1 attiecas uz pirmo rindu, pirmo kolonnu un ir forma, kas izmantota palīdzības piemēros.
 

Makro izmantošana programmā Microsoft Office Excel 2007

  1. Atveriet darbgrāmatu, kurā ir dati.

  2. Nospiediet taustiņu kombināciju ALT+F11, lai startētu Visual Basic redaktoru.

  3. Izvēlnē Ievietošana noklikšķiniet uz Modulis , lai ievietotu moduli. Ierakstiet makro moduļa koda logā.

  4. Izvēlnē Fails noklikšķiniet uz Aizvērt un atgriezties programmā Microsoft Excel.

  5. Atlasiet darblapu, kurā ir savienojamie dati.

  6. Noklikšķiniet uz augšējās šūnas labajā kolonnā datiem, kurus vēlaties savienot. Piemēram, ja šūnās A1:A100 un B1:B100 ir dati, noklikšķiniet šūnā B1.

  7. Noklikšķiniet uz cilnes Izstrādātājs . Ja cilne Izstrādātājs netiek parādīta, veiciet tālāk norādītās darbības.

    1. Noklikšķiniet uz Microsoft Office pogas un pēc tam noklikšķiniet uz Excel opcijas.
    2. Noklikšķiniet uz Pamata.
    3. Noklikšķiniet, lai atlasītu izvēles rūtiņu Rādīt izstrādātāja cilni lentē .
    4. Noklikšķiniet uz Labi, lai aizvērtu dialoglodziņu Excel opcijas.

  8. Grupā Kods noklikšķiniet uz Makro.

  9. Atlasiet ConcatColumns makro un noklikšķiniet uz Palaist.

Kā izmantot makro programmā Microsoft Office Excel 2003 un iepriekšējās Excel versijās

  1. Atveriet darbgrāmatu, kurā ir dati.
  2. Nospiediet taustiņu kombināciju ALT+F11, lai startētu Visual Basic redaktoru.
  3. Izvēlnē Ievietošana noklikšķiniet uz Modulis , lai ievietotu moduli. Ierakstiet makro moduļa koda logā.
  4. Izvēlnē Fails noklikšķiniet uz Aizvērt un atgriezties programmā Microsoft Excel.
  5. Atlasiet darblapu, kurā ir savienojamie dati.
  6. Noklikšķiniet uz augšējās šūnas labajā kolonnā datiem, kurus vēlaties savienot. Piemēram, ja šūnās A1:A100 un B1:B100 ir dati, noklikšķiniet šūnā B1.
  7. Izvēlnē Rīki norādiet uz Makro un pēc tam noklikšķiniet uz Makro. Atlasiet ConcatColumns makro un noklikšķiniet uz Palaist.