Помогите с Exel, пожалуйста

12
Snowman
На сайте с 29.05.2006
Offline
80
#11

спасибо за помощь, но не получается - 0 возвращает в С1 и все

Дизайн сайтов + готовые макеты на продажу (от 35wmz) (/ru/forum/840033)
Codd
На сайте с 13.01.2011
Offline
65
#12

Скрин таблицы, с которой производите манпуляции покажите.

VR
На сайте с 03.10.2010
Offline
39
#13

1.Нажимаете на первую ячейку столбца 3, в котором нужны данные столбца 1.

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

3.Затем "зацепляемся" за нижний правый угол первой ячейки столбца 1 и ведем вниз столько строк, сколько вам надо.

4.В конечном итоге получаем готовый результат.

P.S. у меня excel 2010, но думаю, что и в других версиях то же самое.

jpg 84158.jpg
png 84160.png
jpg 84162.jpg
S
На сайте с 27.03.2009
Offline
29
#14

Или в макросе пишем цикл по всему диапазону столбца С, на каждом шаге цикла - выполняем вложенный цикл по столбцу B, в котором сравниваем текущий элемент столбца С со всеми элементами столбца B, если находим такое совпадение, то цикл прерываем и записываем с текущее значение столбца С - значение столбца A где i значение счетчика внутреннего цикла, если не находим то пишем что-то (например 0)

PB
На сайте с 29.11.2007
Offline
40
#15

Если правильно понял то как-то так (vba) :

Private Sub CommandButton1_Click()

Dim i, j As Integer

row_c = Application.CountA(Range("A:A"))

row_s = Application.CountA(Range("C:C"))

For i = 1 To row_c Step 1

For j = 1 To row_s Step 1

If Worksheets("Лист1").Cells(i, 2) = Worksheets("Лист1").Cells(j, 3) Then

Worksheets("Лист1").Cells(j, 4) = Worksheets("Лист1").Cells(i, 1)

End If

Next

Next

End Sub

Результат сортировки помещается в столбец D.

Snowman
На сайте с 29.05.2006
Offline
80
#16

PLSB, спасибо!!! вот это то, что нужно

12

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий