Сразубамп

Либо без пробела после цифры
035еку

Bump

>>186307507
Формулы подстрок используй

>>186307644
Не могу разобраться

Бамп

>>186307750
Скинь сюда ее синтаксис, я его не помню
Там что-то вроде
=Подстрока(1,3)
=Подстрока(0,1)
=Подстрока(4)

Потом объедение в один результат какой-нибудь другой формулой конкатенации

>>186307479 (OP)
Вы там в ГАИ совсем охуели, уже двач за вас должен работать.
САЖА

Бамп

>>186307479 (OP)
НЕ ПОМОГАЙТЕ ЭТОМУ ПИДОРУ¡¡¡¡

>>186307479 (OP)
Чтоб тебя понос зелёный прошиб, подстилка.

>>186307893
Спасибо!

Это я для себя не обращайте внимания.

Dim a, text As String

n = 1 ''Столбец
n1 = 1 ''Строка

While Cells(n, n1) <> ""
text = Cells(n, n1)
a = Left(text, 1)
text = Right(text, Len(text) - 1)
text = Mid(text, 1, 3) & " " & a & Mid(text, 4)
Cells(n, n1) = text
n = n + 1
Wend

У меня теперь новая проблема.
Есть 2 списка, и нужно их сравнить 001аму напротив 001аму, 010авт напротив 010авт и так далее.

>>186307479 (OP)
Логистика? Склад?

>>186308418
>>186307955

>>186308437
Забыл приклеить.

>>186308342
Бамп

>>186308342
Из твоего вопроса нихуя не понятно.

Либо Впр, либо еще проще.

Правим
Левсим

Правим
Левсим

>>186308662
Нет, другое

>>186308570
фильтр на каждый стоблец поставь и отсортируй от меньшего к большему нахуй

>>186308570
В первом столбце строк больше чем во втором, значит некоторых номеров во втором нет, значит они не нужны, если важно это.

>>186308722
Я так и сделал, но подводный камень в том что в первом столбце есть лишние номера, которых нет во втором, от них нужно избавиться как то, чтоб совпадающие были напротив друг друга, а где нет совпадений нахуй не нужны, т.е
001 аму 001 аму
010 авт 010 авт
018 ахк 018 ахк
999 трр
105 твв

Бамп.

Бамп

в vba норм будет?

>>186308794
ВПРом подтяни одинаковые значения

и удали хуйню где ошибка

=ВПР(B3;$D$3:$D$1000;1;0)

>>186309062
Наверное

Этот тред уже был полгода назад

Давно не было Excel тредов, надеюсь с Excel-куном все хорошо.

Бампну

>>186309168
Вроде работает.

Sub a()
n = 3
n1 = 2
Dim t As String
c = n
c1 = n1 + 2
While Cells(n, n1) <> "" And Cells(c, c1) <> ""
If Cells(n, n1) <> Cells(c, c1) And Cells(c, c1) <> "" Then
c = c + 1
Else
t = Cells(c, c1)
Cells(c, c1) = Cells(n, n1 + 2)
Cells(n, n1 + 2) = t
n = n + 1
c = n
End If
Wend
While Cells(n, n1) <> ""
Cells(n, n1) = ""
n = n + 1
Wend
End Sub

>>186309419
Хотя хуйню какую-то написал. Забудь.

>>186307479 (OP)
Скопировать столбец, удалить в нём автозаменой все цифры (0, 1, 2, 3...), а в первом все буквы (а, в, е, к, м, н, о, р, с, т, у, х), и объединить.

>>186309419
Оно просто удаляет один столбец

Бампну

>>186309511
/Thread

>>186307479 (OP)
Я для такой хуйни пишу скрипт в Питоне за минуту, который быстренько всё отформатирует как надо.

>>186309958
Каким-нибудь образом питон может взаимодействовать с ехелем напрямую?

>>186307479 (OP)
Это для спидкамов?

>>186308794
Бамп

>>186310079
Естественно, поэтому я говорю, что нельзя помогать этому красному. Ему зп платят.

>>186310065
Я не програмист, но думаю, что просто экспортируешь хуйню из экселя в txt. Пишешь прогу на паскале, которая херачит txt файл в нужном русле. А затем отредактированный txt в excel загоняешь.

>>186310205
Нет, это для расчета топлива

>>186310065
Ну если по общепринятому, то можно сохранить excel документ как csv, а это тупо текстовый файл, который можно крутить как хочешь.
А вообще есть специальные библиотеки, позволяющие открывать эксель файлы, но там еботни больше, тебе это всё не надо, чтобы один лишь столбик отформатировать.
Ты вообще можешь выделить этот столбик и вставить прямо в код, а потом результат скопировать и вставить в эксель руками.

>>186310432
Да сейчас новая проблема, нужно совпадающие строки выстроить напротив друг друга, а не совпадающие в конец закинуть.

=ЛЕВСИМВ(ПРАВСИМВ(а1;5);3)&" "&ЛЕВСИМВ(а1;1)&ПРАВСИМВ(а1;2)

>>186310482
Вот всё это можно на Питониуме сделать запросто. Рекомендую тебе, анон, изучить его, очень пригодится в таких вот штуках.
Я так вот когда-то изучил, несколько лет для себя использовал, а потом взял и программистом устроился.

Я тебе могу всё это сделать, если хочешь, вбрось исходник как-то в тред.

>>186310747
каков хитрец

>>186310747
Вот, одинаковые напротив друг друга, уникальные из первого столбца в самом конце. Буду благодарен.
http://mega.dp.ua/file?source=18111010104345081760

>>186310854
Да там ничего секретного.

Бамп

>>186310214
теперь это заземлился обмелился тред.
проиграл

>>186309836
Sub xyeta()
n = 3 ''Строка
n1 = 2 ''Столбец
Dim t As String
c = n
c1 = n1 + 2
While Cells(n, n1) <> ""
If Cells(n, n1) <> Cells(c, c1) And Cells(c, c1) <> "" Then
c = c + 1
ElseIf Cells(n, n1) = Cells(c, c1) Then
If n <> c Then
t = Cells(c, c1 - 2)
Cells(c, c1 - 2) = Cells(n, n1)
Cells(n, n1) = t
c = 3
Else
n = n + 1
c = 3
End If
ElseIf Cells(c, c1) = "" Then
n = n + 1
c = 3
End If
Wend
n = n - 1
While Cells(n, n1) <> "" And Cells(n, n1 + 2) = ""
Cells(n, n1) = ""
n = n - 1
Wend
End Sub

>>186310065
win32com.client

А есть тут те, кто в макросах екселевских нормально разбираются? Я бы обменялся почтами и иногда обращался за помощью, естественно оплачивая.

>>186311400
Я возможно чет не понимаю, но я это вставляю, дальше альт+ф8, и ничего не происходит

Качай надстройку PLEX, она в Экселе божит

>>186310912
Держи, анон http://mega.dp.ua/file?source=18111010443644921221

Вы сейчас мусору помогаете, аноны. Ебанулись вкрай уже ?

>>186312178
И что?

>>186312253
Ничего, если ты хека, который с ними столкнется только когда придут выселять за неуплату коммуналки. Если из дома выходишь, то должен бы уже сам знать

>>186312178
моя милиция меня бережет

Пшел на хуй, мусорок ебаный, ебал тебя и всю вашу канторку мудаков в форме.