[решено] помогите, пожалуйста, с макросом

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - [решено] помогите, пожалуйста, с макросом (http://forum.oszone.net/showthread.php?t=292865)

помогите, пожалуйста, с макросом

для просто юзера сложно решить, но для обычного программиста легко.
нужно чтобы данные из файла 21 оформлись также как в файле 1. там просто они разделены точкной с запятой.
помогите, плиз.

vanoman, как-то так:

Код:

Option Explicit



Sub Sample()

    Dim elem As Variant

    Dim i As Integer

    

    

    With ThisWorkbook.Worksheets.Item("Лист1")

        For Each elem In Array("D2", "C2", "B2", "A2")

            i = UBound(Split(.Range(elem).Value, ";"))

            

            If i > 0 Then

                .Range(elem).Offset(0, 1).Columns("A:" & Chr(Asc("A") + i - 1)).EntireColumn.Insert Shift:=xlToRight

                Intersect(.Range(elem).CurrentRegion, .Range(elem & ":" & Left(elem, 1) & "65536")).TextToColumns _

                    Destination:=Range(elem), _

                    DataType:=xlDelimited, _

                    Semicolon:=True

            End If

        Next elem

    

        With .Range("A2").CurrentRegion

            .Rows.AutoFit

            .Columns.AutoFit

        End With

    End With

End Sub

здоровски, Iska, :)