Упорядочивать Колонны Файла Excel

Я хотел бы знать, поскольку я могу odenar колонны Excel с, VB.NET, пока я открываю Excel с Interop, сейчас я хотел бы упорядочить колонны, так как у меня есть они пока, как он появляется в изображении.

Columnas Desordenada

Результат, который я хочу получить, - следующий:

introducir la descripción de la imagen aquí

1
задан 22.02.2017, 00:35
1 ответ

В июле, cГіdigo, который ты должен осуществлять, этот.

    Sub ordenar()
For y = 1 To 9999 'establecemos un contador del 1 al 9999
    If Range("B" & y).Value <> "" Then 'si el valor de la celda B y (i)<---Contador
        For y2 = y To 9999 'Establecemos un segundo contador que inicie desde el contador anterior hasta 9999
            If Range("B" & y2).Value = "" Then 'este frena cuando encuentre vacio
                Range("B" & y & ":C" & y2).Select 'selecciona el rango
                Selection.Cut 'lo corta
                Range("A1").Select 'selecciona el rango A1
                ActiveSheet.Paste 'lo pega
                y2 = 9999 'pone los contadores en el final para que el loop termine
                y = 9999 'pone los contadores en el final para que el loop termine
            End If
        Next
    End If
Next
End Sub

то, что он делает, состоит в том, чтобы пробегать линию B до того, чтобы находить ячейку, которая содержала бы какую-то стоимость, однажды это нашла harГЎ вторая поездка, чтобы искать конец таблицы и так знать, откуда докуда он должен копировать, чтобы потом прикреплять в ячейке A1

Восток cГіdigo эту я начинаю для таблицы, которая не преодолевала бы 9991 реестр, и также не созерцался, у которого было больше колонн к правой стороне

, не Надеюсь, что он служил тебе помощью cГіdigo, любое другое сомнение по этому поводу пожалуйста сообщи ее для того, чтобы мы смогли помогать тебе.

1
ответ дан 24.11.2019, 10:56