Перенос символов из ячеек одного листа в другой

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Перенос символов из ячеек одного листа в другой (Макросы/Sub)

BBC

Дата: Среда, 27.11.2024, 14:37 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 58

Репутация: 0 ±

Замечаний: 0% ±

Excel LTSC

Доброго времени суток. Задача, перенести из таблицы листа ГРАФИК в таблицу СОТРУДНИК_ВРЕМЯ только буквы ("в", "д", "б"), цифры нет. Если что, можно заменить все буквы одним символом, допустим- "х"

К сообщению приложен файл: 122024.xlsx (35.2 Kb)

Ответить

Kuzmich

Дата: Среда, 27.11.2024, 17:56 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 714

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

[[vba]

Код

'при активном листе График и условии что очередность ФИО совпадает
Sub Perenos()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
Dim List_C As Worksheet
  Set List_C = ThisWorkbook.Worksheets("Сотрудник_время")
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 4 To iLastRow   'цикл по ФИО
      For j = 2 To 32   'цикл по дням
       If Cells(i, j) = "в" Or Cells(i, j) = "б" Or Cells(i, j) = "д" Then
         List_C.Cells(i + 4, j + 1) = Cells(i, j)
       End If
      Next
    Next
End Sub

[/vba]