Excel – строка в одной строке для символов в нескольких столбцах

Я новичок в Excel VB. В настоящее время я хочу сделать следующее –

Читайте из ячейки. Что-то вроде этого «010111» (в двоичном формате). Скажем, это в листе 1, Cell A10. Запишите в несколько ячеек такую ​​же информацию, как это. Скажем, в листе 2. Ячейки B1 – B6. например, лист 2 – лист B1 -0 2 – B2 -1 лист 2 – лист B3 -0 2 – лист B4 -1 2 – лист B5 -1 2 – B6 -1 Также я хочу сделать его общим, я имею в виду I хотел иметь цикл for или что-то вроде того, что может сделать это для динамических ячеек. т.е. от листа 1 – A (i) до листа 2 – B (j) до B (j + n).

Пожалуйста, помогите мне? Возможно ли это прочитать отдельный символ из строки. Я предполагаю, что мы можем взять двоичный файл как строку и прочитать каждый символ, а затем поместить их один за другим в строки столбцов, делая его динамическим для любой строки / столбца.

Спасибо, Prateek

    Вот приблизительный эскиз того, как вы могли это сделать:

    Sub test() Dim lastRow As Integer, i As Integer, targetCol As Integer, targetRow As Integer Dim char As String Dim rng As Range, cel As Range targetCol = 2 ' Set the target column to col. "B" targetRow = 1 ' Set the target Row, starts at row 1 (B1) lastRow = Cells(1, 1).End(xlDown).Row 'assuming your data in column A is a bunch of strings you want to break out, without ' any gaps, this will find the last row Set rng = Range(Cells(1, 1), Cells(lastRow, 1)) For Each cel In rng If Len(cel) > 0 Then For i = 1 To Len(cel) Cells(targetRow + i - 1, targetCol).Value = Mid(cel.Value, i, 1) Next i targetRow = targetRow + Len(cel) End If Next cel End Sub 

    Он берет мой диапазон A1: A4 и вставляет в Col. B, начиная со строки 1: введите описание изображения здесь

    Я нашел ответ, проще понять для себя. В любом случае спасибо за все ваши предложения. Я не мог опубликовать ответ, поскольку был занят разработкой инструмента. Вот небольшой фрагмент кода для вас, ребята.

     'Our first Job is to define the range. 

    «Здесь я выбираю D10 для K10. Вы можете проверить их при отладке номера столбцов и столбцов.

    Dim rng As Range, cel As Range

    Установите rng = Range («D10», «K10»)

    'Определить переменные счетчика

    Dim i As Integer, j As Integer

    Для каждого cel In rng

     If Len(cel) > 0 Then For i = 1 To Len(cel) 

    'Извлеките один символ из строки Cel

    'MID (Input_string, Start_position, Number_of_characters)

      char = Mid(cel.Value, i, 1) 

    «Решите, что вы хотите делать со значениями

      If char = 0 Then 

    'Выберите расположение листа и ячейки, где вы хотите распечатать

      Sheet4.Cells(9 + j, 1).Value = char + " Hey Prateek,Its a Zero" ElseIf char = 1 Then 

    'Выберите расположение листа и ячейки, где вы хотите распечатать

      char = 180 Sheet4.Cells(9 + j, 1).Value = char + " Hey Prateek, Its a One" End If 

    'Выполните это, если вы хотите записать это в другом месте

      'oFile.WriteLine Sheet4.Cells(9 + j, 1).Value 

    'Прокрутите символы, а затем добавьте строки в пункт назначения.

      j = j + 1 

    'Петля для следующей ячейки

      Next i End If 

    Следующий cel

    Значения на изображении предназначены только для представления. Запустите код, чтобы увидеть фактический ответ.

    Вы также можете прочитать

    От ячейки до нескольких ячеек в столбце С уважением, Патрик Роу

    Приятно провести время со своим Excel.

    Interesting Posts

    Непредвиденное диалоговое окно файла при обновлении ссылок в Excel 2003 VBA

    VBA Заполните все ячейки между двумя ячейками

    Excel VBA, чтобы открыть сайт в новых вкладках в firefox / chrome

    Как обойти уведомления о перспективах при попытке получить информацию о пользователях?

    Макрос автозаполнения до длины

    динамически устанавливать фокус в многостраничном режиме

    Как получить этот код VBA для вывода в определенный формат номера?

    Строка в массиве чисел дает ошибку

    R: Как отображать значения NA в excel при использовании WriteXLS?

    Excel: Формула для поиска наиболее распространенного текста между датами

    Excel: объединить последние непустые ячейки в столбце

    Как скопировать данные из файла csv и вставить в PowerPoint с помощью vba

    Excel 2010 VBA с настройкой цветов ячеек

    Проверка VBA Если словарь существует

    Добавить форматирование в формулу Excel вложенных функций

    Давайте будем гением компьютера.