Új hozzászólás Aktív témák

• #33285 Delila_1 veterán bandus #33284

  Új Válasz 2016-11-22 14:59:19 #33285

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz bandus #33284 üzenetére

  Transzponálod az egészet, majd az utolsó oszloptól indulva egy ciklusban minden oszlop elé beszúrsz egy újat.

  Sub oszlopbe()
Dim oszlop As Integer, uoszlop As Integer
uoszlop = Cells(1, Columns.Count).End(xlToLeft).Column
For oszlop = uoszlop To 1 Step -1
Columns(oszlop).EntireColumn.Insert
Next
End Sub

Új hozzászólás Aktív témák