Just nu i M3-nätverket
Gå till innehåll

Kopiera kolumner


Pellestek

Rekommendera Poster

Jag hittade detta på forumet, jag har ändrat lite i det.

Jag vill kopiera bla Kolumn C, allt utom översta raden, därefter sätta in den i på D6 på "Blad1".

Hur gör jag för att hela kolumnen utom rad 1 ska komma med?

 

 

Sub Kopiera()
Dim xlBook As Excel.Workbook
 Dim xlSheet As Excel.Worksheet
 Dim vaData As Variant
 Dim i As Integer
 'Öppnar arbetsboken

 Set xlBook = Workbooks.Open(Filename:="C:\Users\Peter\Documents\3000.xls")
 Set xlSheet = xlBook.Worksheets("Blad1")
 'Kopierar data
 ThisWorkbook.Worksheets("Blad1").Range("D6").Value = xlSheet.Range("C2").Value
 ThisWorkbook.Worksheets("Blad1").Range("C6").Value = xlSheet.Range("D2").Value
 ThisWorkbook.Worksheets("Blad1").Range("E6").Value = xlSheet.Range("E2").Value
 ThisWorkbook.Worksheets("Blad1").Range("B6").Value = xlSheet.Range("H2").Value
 xlBook.Close
 Set xlSheet = Nothing
 Set xlBook = Nothing
End Sub

Länk till kommentar
Dela på andra webbplatser

Hela kolumnen? Nja, bättre om du bara kopierar det som verkligen finns i kolumnen.

Om du vet att du har hundra värden:

ThisWorkbook.Worksheets("Blad1").Range("D1:D100").Value = xlSheet.Range("C1:C100").Value

Om du inte vet men dina data är konsoliderade, dvs utan avbrott:

ThisWorkbook.Worksheets("Blad1").Range("D1").Resize(xlSheet.Range("C1").End(xlDown).Row).Value =  xlSheet.Range("C1:",  xlSheet.Range("C1").End(xlDown)).Value

exempelvis.

 

Om du inte vet detta kanske man kan skriva

Dim noRows as Long

noRows = xlSheet.Cells.SpecialCells (xlCellTypeLastCell).Row

ThisWorkbook.Worksheets("Blad1").Range("D1").Resize(noRows).Value  =  xlSheet.Range("C1").Resize(noRows).Value

 

Sådär, något alternativ kanske passar?

Länk till kommentar
Dela på andra webbplatser

Jag upptäckte en annan sak, det är en Template som makrot ligger i,

nu när jag skapar en ny fil med den som mall, så följer inte makrot med.

Kan man göra nåt med det?

 

Peter

Länk till kommentar
Dela på andra webbplatser

Om du bara ser till att alla filformat har plats för makron så ska koden följa med, dvs att sparar som xlsm eller xlsb fil (om Excel 2007 eller senare).

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...