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

• lúzer veterán

  #3192

  #3190 Delila_1

  2008-02-16 11:41:35

  Új Válasz

  Ú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

  

  lúzer

  veterán

  #3190 Delila_1

  #3190 Delila_1

  Van itt egy kis makró a problémádra:

  Sub valami()
  usor = ActiveSheet.UsedRange.Rows.Count
  s = 2
  For sor = 2 To 2 * usor - 1 Step 2
  Cells(sor, 2).Select
  ActiveCell.Formula = "=A" & s
  Cells(sor + 1, 2).Select
  ActiveCell.Formula = "=A" & s
  s = s + 1
  Next
  Columns("B:B").Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Range("A1").Select
  Application.CutCopyMode = False
  End Sub

  A Next utáni sorok elhagyhatók, azok a beírt hivatkozásokat alakítják át értékekké.

  lúzer!
  A #3185-ös hozzászólásodban a mintát a saját gépedről tetted fel, így csak akkor látható, mikor te is "képben vagy". Pedig biztosan jó megoldást adtál.

  nem!

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