Копирование со сдвигом

@OLEGOFF · Регистрация: 27.02.2013

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

Уважаемые форумчане!На листе имеется картинка в виде раскрашеных ячеек.Но в искаженном виде(см.файл).Строки сдвинуты в сторону.Имеется 2 макроса которые восстанавливают(сдвигают)всё на свои места.Однако работает всё это при строго определённом размере изображения.
Для первого макроса Формула копирования диапазона ячеек имеет вид R(11+3*i)C(248-i) : R(11+k+3i)C248
где k=2, For i=0 To i=100
Формула вставки этих ячеек R(211+3*i)C9
Для второго макроса Формула копирования диапазона имеет вид R(8+3*i)C9 : R(8+k+3*i)C(248-i)
Формула вставки этих ячеек R(208+3*i)C(9+i)

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

С уважением и надеждой!Олег.

@Казанский · 25.03.2014, 21:05

Сообщение от OLEGOFF

Имеется 2 макроса которые восстанавливают(сдвигают)всё на свои места

Чет я этого не заметил

Попробуйте макрос, который определяет наименее закрашенный столбец (границу картинки) и переносит кусок картинки справа от него в начало.

Visual Basic

Sub bb()
Dim ur As Range, col As Range, colm&, c As Range, n&, nm&, tmpSh As Worksheet, aSh As Worksheet
Set aSh = ActiveSheet
Set ur = aSh.UsedRange
Application.ScreenUpdating = False
With ur
  nm = .Rows.Count
  For Each col In .Columns
    n = 0
    For Each c In col.Cells
      If c.Interior.Color <> vbWhite Then n = n + 1
    Next
    If n < nm Then nm = n: colm = col.Column
  Next
  Set tmpSh = Worksheets.Add
  Range(aSh.Columns(colm), .Columns(.Columns.Count)).Cut tmpSh.Range("A1")
  tmpSh.UsedRange.EntireColumn.Copy
  aSh.Cells(1, .Column).Insert Shift:=xlToRight
End With
Application.DisplayAlerts = False
tmpSh.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

А как Вы такие файлы делаете?

@OLEGOFF · 26.03.2014, 01:17 **[ТС]**

Уважаемый Казанский!Большое спасибо за отзыв.Ваш макрос работает,но не совсем корректно. Прилагаю новый файл для анализа.А заодно и программу с помощью которой это делается.

@Казанский · 26.03.2014, 09:06

В Свойствах файла-программы указан автор и сайт, туда и обращайтесь.
На мой взгляд, программа сыровата - падает при ширине картинки больше 250, не запоминает последнюю выбранную папку, создает картинку "в себе". Видимо, это черновой вариант. Проще заново написать.

@OLEGOFF · 26.03.2014, 09:15 **[ТС]**

Я вообще-то просил не программу усовершенствовать,а подсказать как оформить копирование-вставку ячеек через цикл.
Просто есть другая идея для работы.А ширина картинки не может быть больше 256 ячеек по определению Екселя

@Казанский 15153 / 6426 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	26.03.2014, 09:06	4
	В Свойствах файла-программы указан автор и сайт, туда и обращайтесь. На мой взгляд, программа сыровата - падает при ширине картинки больше 250, не запоминает последнюю выбранную папку, создает картинку "в себе". Видимо, это черновой вариант. Проще заново написать. 0

@OLEGOFF 1081 / 522 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	26.03.2014, 09:15 [ТС]	5
	Я вообще-то просил не программу усовершенствовать,а подсказать как оформить копирование-вставку ячеек через цикл. Просто есть другая идея для работы.А ширина картинки не может быть больше 256 ячеек по определению Екселя 0