Здравствуйте, знатоки. Есть данные A, B, C с значениями a1,a2,a3, b1,b2,b3,c1,c2,c3 в столбец. Помогите с формулой, чтобы когда вводишь "А" рядом в ячейке появлялись a1,a2,a3. Пример, как должен выглядеть результат, указал в ячейках G2:I2. Ввел значение в ячейку G2, рядом в ячейках результаты формул.
Здравствуйте, знатоки. Есть данные A, B, C с значениями a1,a2,a3, b1,b2,b3,c1,c2,c3 в столбец. Помогите с формулой, чтобы когда вводишь "А" рядом в ячейке появлялись a1,a2,a3. Пример, как должен выглядеть результат, указал в ячейках G2:I2. Ввел значение в ячейку G2, рядом в ячейках результаты формул.dadade
Private Sub Worksheet_Change(ByVal Target As Range) u = Cells(Rows.Count, "g").End(xlUp).Row + 1 If Not Intersect(Target, Range("g2:g" & u)) Is Nothing Then v = Cells(Rows.Count, "a").End(xlUp).Row w = Target.Value j = Target.Row x = Application.CountIf(Range("a2:a" & v), w) If x > 0 Then c = 1 For y = 1 To x a = "," b = " " If y = x Then a = "" b = "" End If f = Application.Match(w, Range("a" & c + 1 & ":a" & v), 0) c = f + c h = Range("b" & c).Value & a i = Range("e" & c).Value & b k = Range("h" & j).Value l = Range("i" & j).Value Range("h" & j) = k & h Range("i" & j) = l & i Next End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) u = Cells(Rows.Count, "g").End(xlUp).Row + 1 If Not Intersect(Target, Range("g2:g" & u)) Is Nothing Then v = Cells(Rows.Count, "a").End(xlUp).Row w = Target.Value j = Target.Row x = Application.CountIf(Range("a2:a" & v), w) If x > 0 Then c = 1 For y = 1 To x a = "," b = " " If y = x Then a = "" b = "" End If f = Application.Match(w, Range("a" & c + 1 & ":a" & v), 0) c = f + c h = Range("b" & c).Value & a i = Range("e" & c).Value & b k = Range("h" & j).Value l = Range("i" & j).Value Range("h" & j) = k & h Range("i" & j) = l & i Next End If End If End Sub
Nic70y, Просто как он будет работать, если данные в колонке "А" будет в другом листе и там должны быть отображается нужные данные через запятых? и там не будет идти по 3 одниковых значении как в колонке А, только одно значение и в соседнем ячейке должно отобразиться все присущие данные к нему.
Nic70y, Просто как он будет работать, если данные в колонке "А" будет в другом листе и там должны быть отображается нужные данные через запятых? и там не будет идти по 3 одниковых значении как в колонке А, только одно значение и в соседнем ячейке должно отобразиться все присущие данные к нему.dadade
Сообщение отредактировал dadade - Вторник, 24.11.2020, 07:46