Добрый день. Есть таблица со столбцами "Наименование", "Количество", "Ед. измерения". В таблице в столбце "Количество" данные стоят не везде. Можно ли сделать так, чтобы на другой лист переносилось в строку через запятую, только то из столбца "Наименование", напротив которого в столбце "Количество" стоит цифра и при этом добавлялась позиция из столбца "Ед. измерения"?
Добрый день. Есть таблица со столбцами "Наименование", "Количество", "Ед. измерения". В таблице в столбце "Количество" данные стоят не везде. Можно ли сделать так, чтобы на другой лист переносилось в строку через запятую, только то из столбца "Наименование", напротив которого в столбце "Количество" стоит цифра и при этом добавлялась позиция из столбца "Ед. измерения"?Bujhek
Sub test() Dim c, arr, i&, x arr = Range("B8:G" & Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim c(1 To UBound(arr), 1 To 1) For i = 1 To UBound(arr) If arr(i, 5) <> "" Then c(1, 1) = _ c(1, 1) & " " & arr(i, 1) & "-" & arr(i, 5) & arr(i, 6) & ", " Next [L8].Resize(UBound(c)) = c End Sub
[/vba]
[vba]
Code
Sub test() Dim c, arr, i&, x arr = Range("B8:G" & Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim c(1 To UBound(arr), 1 To 1) For i = 1 To UBound(arr) If arr(i, 5) <> "" Then c(1, 1) = _ c(1, 1) & " " & arr(i, 1) & "-" & arr(i, 5) & arr(i, 6) & ", " Next [L8].Resize(UBound(c)) = c End Sub
Не сложно, но и не нужно. И ничего Вам это не даст. На форуме есть список литературы - изучайте. А проводить для Вас персонально начальный курс информатики на форуме - плохая идея.
Quote (Kocc)
Если не сложно объясните
Не сложно, но и не нужно. И ничего Вам это не даст. На форуме есть список литературы - изучайте. А проводить для Вас персонально начальный курс информатики на форуме - плохая идея.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Не сложно, но и не нужно. И ничего Вам это не даст. На форуме есть список литературы - изучайте. А проводить для Вас персонально начальный курс информатики на форуме - плохая идея
Я не давно начал интересоваться VBA, если ABC захочет провести ликбез, то почему бы и нет.
Quote (KuklP)
Не сложно, но и не нужно. И ничего Вам это не даст. На форуме есть список литературы - изучайте. А проводить для Вас персонально начальный курс информатики на форуме - плохая идея
Я не давно начал интересоваться VBA, если ABC захочет провести ликбез, то почему бы и нет.Kocc
Даулет, в твоем слечае ReDim без надобности. А вот тут - нужен
[vba]
Code
Sub qqq() Dim arr, i& arr = Range("B8:G" & Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim s(1 To UBound(arr)) For i = 1 To UBound(arr) If Len(arr(i, 5)) Then s(i) = Join(Application.Index(arr, i)) & "," Next Sheets(2).[A1] = Left$(Application.Trim(Join(s)), Len(Application.Trim(Join(s))) - 1) End Sub
[/vba]
Даулет, в твоем слечае ReDim без надобности. А вот тут - нужен
[vba]
Code
Sub qqq() Dim arr, i& arr = Range("B8:G" & Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim s(1 To UBound(arr)) For i = 1 To UBound(arr) If Len(arr(i, 5)) Then s(i) = Join(Application.Index(arr, i)) & "," Next Sheets(2).[A1] = Left$(Application.Trim(Join(s)), Len(Application.Trim(Join(s))) - 1) End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
