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

[vanoman]

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

[Iska]

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

[vanoman]

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