Макрос vba: отображение альтернативного значения в цикле и ограничение выбора в текущей области - PullRequest
Новая
       11

Макрос vba: отображение альтернативного значения в цикле и ограничение выбора в текущей области

0 голосов
/ 30 сентября 2018

Я создал список чисел на 1-м листе, затем на 2-м листе я создал некоторые детали, в которых одна из ячеек получит значение ячейки на 1-м листе (через цикл)

Мой скрипт работаетно есть некоторые проблемы: - Он получает значение 1-й строки, но также получает значение, отображаемое во 2-й строке.- Превышено количество циклов в зависимости от количества строк на моем 1-м листе.- Это переопределяет формулу сцепления в моей камере.- Он удваивает пробелы после вставки

Коды: 

    Public Sub Number()

        Dim i, Lastrow As Integer
        Dim valueCT As String

        Worksheets("Sheet2").Select    
        Lastrow = ActiveSheet.Range("A2").End(xlDown).Row

        For i = 1 To Lastrow

            Worksheets("Sheet3").Select
            Range("C2").Select
            Range("C" & i + 1).Value = Worksheets("Sheet2").Range("A" & i + 1).Value
            Selection.CurrentRegion.Select
            Selection.Copy

            Range("C" & i + 2).Value = Range("C" & i + 1).Value




            Range("C500").Select
            Selection.End(xlUp).Select
            ActiveCell.Offset(3, 0).Select
            ActiveSheet.Paste

        Next

    End Sub

Список номеров

Столбец A - 1-й лист 

    Number
    2845
    2846
    2847
    2848
    2849
    2850
    2851

Второй лист, столбец C: F, 2 строки С формулами в ячейке 1-й строки "=" и конкатенацией в ячейке 2-й строки 

    2845        AAA BBBB    BBBCCC
    2845BBBCCC  AAA BBBB    BBBCCC

Мой ожидаемый результат - отобразить все числа, включенные в мой список, а затем скопировать только первый выбор втекущая область 2-го листа

ожидаемый результат:

enter image description here

    2845    AAA BBB CCC
    2845AAA AAA BBB CCC
    2845BBB AAA BBB CCC
    2845CCC AAA BBB CCC

    2846    AAA BBB CCC
    2846AAA AAA BBB CCC
    2846BBB AAA BBB CCC
    2846CCC AAA BBB CCC

    2847    AAA BBB CCC
    2847AAA AAA BBB CCC
    2847BBB AAA BBB CCC
    2847CCC AAA BBB CCC

Текущий / фактический результат: 2845 AAA BBB CCC 2846 AAABBB CCC 2847 AAA BBB CCC 

            AAA BBB CCC
    2845    AAA BBB CCC
            AAA BBB CCC

    2845    AAA BBB CCC
    2846    AAA BBB CCC
    2846    AAA BBB CCC


    2845    AAA BBB CCC
    2846    AAA BBB CCC
    2847    AAA BBB CCC


    2845    AAA BBB CCC
    2846    AAA BBB CCC
    2847    AAA BBB CCC
...