A2=A2+"/"+B2

[systemmind]

Всем привет. Помогите пожалуйста с VBA.
У меня есть 2 столбца в Экселе. Задача: Вырезать данные из второго столбца и дописать к данным в первом столбце.
Я попробовал сделать макрос, но Эксель создал вот такую банальность:

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+ю
'
Range("B2").Select
ActiveCell.FormulaR1C1 = "" (Содержимое B2 не должно обнуляться)
Range("A2").Select
ActiveCell.FormulaR1C1 = "SB-073/Б-233_222" (SB-073 - содержимое ячейки A2, Б-233_222 - содержимое B2, но нужно, чтобы сюда вписывалось такое: содержимое ячейки A2=A2+"/"+B2)
Range("A3").Selec
End Sub


P.S. Был бы признателен, если бы это все загнать в цикл, чтобы выполнялось за одно действие. Спасибо.

[Юнлинг]

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

Всем привет. Помогите пожалуйста с VBA.
У меня есть 2 столбца в Экселе. Задача: Вырезать данные из второго столбца и дописать к данным в первом столбце.
Я попробовал сделать макрос, но Эксель создал вот такую банальность:

Sub Макрос2()
'
' Макрос2 Макрос
'
' Сочетание клавиш: Ctrl+ю
'
Range("B2").Select
ActiveCell.FormulaR1C1 = "" (Содержимое B2 не должно обнуляться)
Range("A2").Select
ActiveCell.FormulaR1C1 = "SB-073/Б-233_222" (SB-073 - содержимое ячейки A2, Б-233_222 - содержимое B2, но нужно, чтобы сюда вписывалось такое: содержимое ячейки A2=A2+"/"+B2)
Range("A3").Selec
End Sub


P.S. Был бы признателен, если бы это все загнать в цикл, чтобы выполнялось за одно действие. Спасибо.

Все это сделано макрорекодером
можно было сделать все гораздо проще для всех не пустых ячеек столбца а, начиная со второй строки

Sub Макрос2()
dim i as integer
i=2
do while not isnull(sheet.range("a" & i))
sheet.range("A"& i)=str(sheet.range("a"& i))+"/"+str(sheet.range("b"& i))
i=i+1
loop
End Sub

[SAS888]

Можно так:

Sub Main()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" And Cells(i, "B") <> "" Then Cells(i, "A") = Cells(i, "A") & "/" & Cells(i, "B")
        Cells(i, "B").ClearContents 'Это если нужно очистить значения в столбце "B"
    Next
End Sub

[systemmind]

Спасибо.

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

Можно так:

        If Cells(i, "A") <> "" And Cells(i, "B") <> "" Then Cells(i, "A") = Cells(i, "A") & "/" & Cells(i, "B")

А можно еще сделать, чтобы Cells(i, "B") записывалось др. цветом. Там, в Экселе, есть Темно-Синий, более светлый оттенок 60%

[SAS888]

Если я правильно понял, то так:

Sub Main()
    Dim i As Long, j As Integer, k As Integer
    Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" And Cells(i, "B") <> "" Then
            j = Len(Cells(i, "A")): k = Len(Cells(i, "B"))
            Cells(i, "A") = Cells(i, "A") & "/" & Cells(i, "B")
            Cells(i, "A").Characters(Start:=j + 2, Length:=k).Font.ColorIndex = 41
        End If
        Cells(i, "B").ClearContents 'Это если нужно очистить значения в столбце "B"
    Next
End Sub

[systemmind]

Еще попутный вопрос.
Поддерживает ли VBA запись цвета в шеснадцатиричном виде, типа #8db4e3 (меня именно этот интерисует). И если такой формат не поддерживается, то как это решить?

[EducatedFool]

Поддерживает. Примерно в таком виде:

Sub test()
    [a1].Interior.Color = &HFF&
    [b1].Font.Color = &H80FF80
End Sub

А что, если шестнадцатиричное число заменить его аналогом в десятичной записи, цвет получится какой-то другой?