Tags: concat

Sort by: Date / Title /

  1. Excel: fusion de cellules avec fusion du texte
    1 year ago by spirit
    1. Sub fusion()
    2.     Set vzone = Selection
    3.     vtxt = vzone.Range("a1").Value
    4.     For i = 2 To vzone.Rows.Count
    5.         vtxt = vtxt & Chr(10) & vzone.Cells(i, 1).Value
    6.         vzone.Cells(i, 1).ClearContents
    7.     Next
    8.     vzone.Range("a1").Value = vtxt
    9.     With vzone
    10.         .HorizontalAlignment = xlCenter
    11.         .VerticalAlignment = xlCenter
    12.         .WrapText = False
    13.         .Orientation = 0
    14.         .AddIndent = False
    15.         .IndentLevel = 0
    16.         .ShrinkToFit = False
    17.         .ReadingOrder = xlContext
    18.         .MergeCells = True
    19.     End With
    20.     vzone.Range("a1").Value = vzone.Range("a1").Value
    21. End Sub
    Embed | Raw source | 0
    Paste this in your website: <script type="text/javascript" src="http://www.posteet.com/embed/1704"></script>

First / Previous / Next / Last / Page 1 of 1 (1 posteets)