макрос копироввание имения ячейки

[marc-nikita]

ребят привет, у меня такая проблема. Есть макрос, он создает новую книгу, в книге в ячейку копирует значение из первой книги во второй столбец, а в первый столбец копирует название листа(первой книги), вот ребят как сделать так чтобы копировались только имя ячейки которой я указываю (а не имя листа)

вот макрос:

Sub Cr_Op(book As String)
On Error GoTo i:
Workbooks.Open Filename:=book
Exit Sub
i:
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=book
End Sub

Sub StaV()

Dim book, a1, a2, name1 As String
Dim cur_range, row As Range
Dim x, y, k As Integer



k = 50
For x = 1 To k
y = 1
With ActiveSheet
Set cur_range = Selection
cur_range.Activate
If Cells(cur_range.row, 1) = "" Then
GoTo l:
End If
book = Left(LTrim(Cells(cur_range.row, 1)), 2)

url = ActiveWorkbook.path + "\elements\" + book + ".xls"

Cr_Op (url)

ThisWorkbook.Activate
Selection.Copy
name1 = ActiveSheet.name + " " + str(Cells(cur_range.row, 2).Value)
End With
Workbooks(book + ".xls").Activate

Range("b1").Select

Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
y = y + 1
Loop
ActiveSheet.Paste Link:=True
Cells(y, 1) = name1
ActiveWorkbook.Save
ActiveWorkbook.Close


l:
ThisWorkbook.Activate
ActiveCell.Offset(1, 0).Select
a1 = ActiveCell.Address
ActiveCell.Offset(0, 1).Select
a2 = ActiveCell.Address
Set ran = Range(a1 + ":" + a2)
ran.Select
Next
End Sub

и второй вопрос:

у меня идет столбец в нем слово (пробел) значение, можно ли этот столбец по слову и значению разделить на два столбца.

всем спасибо за помощь

[Xpoft]

по поводу разделения колонки формата "текст пробел текст" легко, вот например первая колонка разносится во вторую и третью...

for i = 1 to n
a=split(cells(i,1).value," ")
cells(i,2).value = a(1)
cells(i,3).value = a(2)
next i

[The_Prist]

Сообщение от Xpoft

for i = 1 to n
a=split(cells(i,1).value," ")
cells(i,2).value = a(1)
cells(i,3).value = a(2)
next i

Чуть поправлю. Можно?

a=split(cells(i,1).value," ")
cells(i,2).value = a(0)
cells(i,3).value = a(1)

Т.к. нижняя граница массива, созданного командой Split, начинается с 0. Притом независимо от Option Base

[marc-nikita]

ребят... только не понимаю, это теперь макросом сделать???

должно быть что-то так:

Sub Макрос4()

For i = 1 To n
a = Split(Cells(i, 1).Value, " ")
Cells(i, 2).Value = a(1)
Cells(i, 3).Value = a(2)
Next i

End Sub

[SAS888]

Можно так:

Sub Макрос4()
    Dim i As Long, a: Application.ScreenUpdating = False
    For i = 1 To 100
        a = Split(Cells(i, 1), " "): Range(Cells(i, 2), Cells(i, UBound(a) + 2)).Value = a
    Next
End Sub

[marc-nikita]

он данные теряет.... то есть столюец не один к одному получается...

[marc-nikita]

разобрался надо было i побольше сделать