Как найти букву столбца или удалить числа из ячейки макросом

@alex70 · Регистрация: 25.11.2014

Author24 — интернет-сервис помощи студентам

Доброго дня!

Помогите справиться с задачей

В столбце А приводятся заголовки столбцов, расположенных на листе Данные
В столбец B выводится имя ячейки, например ИМЯ = А1
Надо чтобы в столбце C выводилась буквенное обозначение столбца

Проблема в том, что столбец с заголовком ИМЯ может находится как в ячейке A1, так и в ячейке AZ132
и из этого значения надо получить только буквы, которые соответствуют столбцу - A или AZ

Пример:
Вложение 562337

@Svsh2015 · 10.08.2015, 21:25

Добрый вечер,попробуйте макрос,-выделяете любую ячейку ,например в строке 1:1 и в ячейке С2 у вас будет буквенное обозначение столбца,соответствующего активной ячейке:

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
Sub proba()
Dim addr$
addr = ActiveCell.Address(1, 0)
Range("C2") = Left(addr, InStrRev(addr, "$") - 1)
End Sub

Добавлено через 31 минуту
Доброго времени суток ,с учетом вашего файл-примера:

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
Sub proba1()
Dim addr$, t$, i&
For i = 2 To 7
  t = Range("B" & i)
  addr = Range(t).Address(1, 0)
  Range("C" & i) = Left(addr, InStrRev(addr, "$") - 1)
Next
End Sub

@Svsh2015 · 11.08.2015, 09:46

alex70, Выводятся хоть двухбуквенные,хоть трехбуквенные значения.соответствующие ячейкам в
строке 1:1,макрос при любом числе строк:

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
Sub proba2()
Dim addr$, t$, i&, j&
 With Sheets("Лист2")
    j = .Range("B" & Cells.Rows.Count).End(xlUp).Row
      For i = 2 To j
       t = .Range("B" & i)
       addr = .Range(t).Address(1, 0)
       .Range("C" & i) = Left(addr, InStrRev(addr, "$") - 1)
     Next
  End With
End Sub

Добавлено через 11 часов 8 минут
alex70, при больших объемах данных попробуйте

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub replica1()
   Dim Arr1(), t$, i&, j&, s$
   i = Range("B" & Cells.Rows.Count).End(xlUp).Row
  Arr1() = Range("B1:B" & i).Value
For i = 2 To UBound(Arr1)
  t = Arr1(i, 1)
   For j = 1 To Len(t)
     If Mid(t, j, 1) Like "[0-9]" Then
        s = Left(t, j - 1)
        Arr1(i, 1) = s
        Exit For
     End If
   Next j
Next i
Range("C1").Resize(UBound(Arr1)) = Arr1
End Sub

Новые блоги и статьи Все статьи Все блоги /
Работа с объемным DOM в javascript Htext 04.04.2025 Сегодня прочитал статью тут о расходах памяти в JS, ее утечках и т. п. И вот что вспомнил из своей недавней практики. Может, кому пригодится. Хотя, в той статье об этом тоже есть. Дело в том, что я. . .	Оптимизация производительности Node.js с помощью кластеризации run.dev 04.04.2025 Масштабирование приложений для обработки тысяч и миллионов запросов — обыденная задача для многих команд. Node. js, благодаря своей асинхронной событийно-ориентированной архитектуре, стал популярной. . .	Управление зависимостями в Python с Poetry py-thonny 04.04.2025 Стандартный инструмент для установки пакетов в Python - pip - прекрасно справляется с базовыми сценариями: установил пакет командой pip install и используешь его. Но что произойдёт, когда разные. . .	Мониторинг с Prometheus в PHP Jason-Webb 04.04.2025 Prometheus выделяется среди других систем мониторинга своим подходом к сбору и хранению метрик. В отличие от New Relic, который использует агентный подход и отправляет данные во внешнее хранилище,. . .	Пакет Context в Golang: Управление потоками и ресурсами golander 04.04.2025 Работа с горутинами в Go часто напоминает управление непослушными детьми - они разбегаются кто куда, делают что хотят и не всегда завершаются вовремя. К счастью, в Go 1. 7 появился пакет context,. . .
Контейнеризация React приложений с Docker Reangularity 03.04.2025 Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .	Свой попап в SwiftUI mobDevWorks 03.04.2025 SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .	Антипаттерны микросервисной архитектуры ArchitectMsa 03.04.2025 Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .	std::mutex в C++: Советы и примеры использования bytestream 03.04.2025 std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .	Не удержался от оценки концепции двигателя Стирлинга. Hrethgir 03.04.2025 Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .