Ассистент вставки диапазона

305
KAREN KENDALL

Я уже некоторое время использую приведенный ниже макрос, но мне нужно было сделать одно небольшое дополнение, и мне было интересно, если кто-нибудь может помочь. Мне нужна информация. в одну ячейку, которая должна быть перемещена, когда в конце пары чисел имеется 15. Мне нужно, чтобы это произошло на 2-й последней операции макроса. Пожалуйста, смотрите мое изображение Excel ниже.

Пример с ожидаемым результатом.

Ячейка B30 имеет 7-15 в нем. Мне нужен макрос, чтобы перейти в ячейку ниже B30 (B31) и использовать это число (в данном случае 1), и выполнить поиск в следующем диапазоне ячеек: E1: E12, чтобы найти 1 (ячейка E1). Найдя, поместите 7-15 и увеличьте последнюю цифру на 1 (чтобы она стала 7-16) в соседней ячейке справа (F1). Сделайте то же самое со всеми ячейками: B30, F30 и J30, если они содержат 15 как последнее число, см. Ячейку J30 и поместите в ячейку F3. После этой операции в ячейках B30, C30, D30 нет содержимого.

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

Sub master2() Application.ScreenUpdating = False  Dim pair As Variant, accumulator As Variant Dim findFifteen As Double Dim remainder As Long, found As Long  found = 1  For Each pair In Range("B30, F30, J30") If Right(pair, 1) = 15 Then If pair.Offset(0, 2) <= 12 Then findFifteen = pair.Offset(0, 2) / 12 remainder = 0 Else findFifteen = 1 remainder = pair.Offset(0, 2) Mod 12 End If  For Each accumulator In Range("A14, B14, C14, D14, E14, F14, G14, H14, I14, J14, K14, L14") If accumulator.Offset(-1, 0) = Val(Left(pair, InStr(pair, "-") - 1)) Then  accumulator.Value = accumulator.Value + remainder End If accumulator.Value = accumulator.Value + findFifteen Next accumulator Range("E" & found).Value = pair found = found + 1 End If Next pair  Application.ScreenUpdating = True End Sub

EXCEL IMAGE

0
Похоже, что вы пропустили пример изображения Mokubai 6 лет назад 0
Спасибо за улов, только что сделал редактирование. KAREN KENDALL 6 лет назад 0
Модератору: не могли бы вы закрыть этот пост, спасибо. KAREN KENDALL 6 лет назад 0

0 ответов на вопрос

Похожие вопросы