Kopiera cellområde mha VBA, Excel.

1 svar · 325 visningar · startad av solbulle 6 apr. 2003

solbulleMedlem sedan mars 20015 287 inlägg

Frågan6 apr. 2003 00:05#1

Har denna kod som markerar en cell och kopierar in den i ett i ett område. Nu vill jag kopiera in fyra celler i rad i ett svep. Hur gör jag det?

    Cells(11, 1).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 5).Range("A1").Select
    Cells(9, 6).Copy ActiveCell
    Range(Cells(11, 6), ActiveCell).Select
    ActiveCell.Activate
    Selection.FillUp

solbulleMedlem sedan mars 20015 287 inlägg

6 apr. 2003 00:26#2

Detta klarade nog av det:

    Cells(11, 1).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 8).Range("A1").Select
    Range(Cells(9, 9), Cells(9, 12)).Copy ActiveCell
    Range(Cells(11, 12), ActiveCell).Select
    ActiveCell.Activate
    Selection.FillUp
    Range("A1").Select