Excel VBA резюме паста

Я попытался, используя следующий ответ: (указывается для моего использования)Excel VBA резюме паста

Sub MakeSummary() 
    Dim sh As Worksheet, N As Long 
    Dim i As Long, M As Long 
    N = Sheets.Count - 1 
    M = 2 
    For i = 1 To N 
     Sheets(i).Range("A12:B17").Copy 
     Sheets("AllInfo").Range("A" & M).PasteSpecial (xlValues) 
     Sheets("AllInfo").Range("A" & M).PasteSpecial (xlFormats) 
     M = M + 6 
    Next i 
End Sub

Я не могу тэ получить этот макрос, чтобы вставить рядом друг с другом, я могу видеть М для вставки друг под друга, но как я могу получить этот макрос в прошлом, я попытался сделать M = M + A, так как это столбец, но он не работает.

источник

2016-11-08 Ramkoe

В вашем случае «M» не является столбцом, так как вы используете его с '.Range (« A »& M) .PasteSpecial', поэтому вы вставляете его в Range (« A2 »), затем Range («A8») и т. Д. –

@ShaiRado, но как я могу t прошло мимо друг друга? – Ramkoe

, если вы хотите продвигать столбцы, скажем, для строки 1, и продвигать 'M', как вы хотели, а затем использовать' Sheets («AllInfo»). Ячейки (1, M) .PasteSpecial (xlValues) 'вместо –

Благодаря ShaiRado

если вы хотите продвигать столбцы, скажем, для ряда 1, и продвигать М, как вы хотели, а затем использовать

Sheets("AllInfo").Cells(1, M).PasteSpecial (xlValues) вместо - @Shai Rado

источник

2016-11-08 10:52:53 Ramkoe

в зависимости от ширины вставки столбцов (в моем случае 2 в ширину) изменить M – Ramkoe

Excel VBA резюме паста

ответ

Смежные вопросы