Закрыть ... [X]

Как связать диапазон в excel


как связать диапазон в excel

Уважаемые спецы экселя, столкнулся со следующей проблемой - надо скопировать из одно столбца в соседний разрозненые диапазоны - не могу понять, как сократить макрос - а в таком виде как у меня - естественно ничего не работает.
Пример  ниже
Sub Percetage_Filling()
Worksheets("Konsol 2011").Select
Range("W9").Select
    ActiveCell.FormulaR1C1 = _
        "=RC[-5]R6C24"
    Selection.Copy
    Union(Range("W9:W14,W16:W23,W27:W28,W30:W31,W33:W36,W39:W40,W44:W50,W52:W54,W56,W58:W60") _
    , Range("W63:W64,W67:W68,W71:W75,W79:W82,W84:W85,W87:W89,W92:W93,W95:W101,W103:W109,W112:W114") _
    , Range("W116:W122,W124,W126:W127,W129:W131,W133:W135,W137:W146,W154:W155,W158:W159") _
    , Range("W162:W163,W165:W167,W169:W170,W172,W174")).Select
    Range("W9").Activate
    ActiveSheet.Paste
    Selection.Copy
    Union(Range("R9:R14,R16:R23,R27:R28,R30:R31,R33:R36,R39:R40,R44:R50,R52:R54,R56,R58:R60") _
    , Range("R63:R64,R67:R68,R71:R75,R79:R82,R84:R85,R87:R89,R92:R93,R95:R101,R103:R109,R112:R114") _
    , Range("R116:R122,R124,R126:R127,R129:R131,R133:R135,R137:R146,R154:R155,R158:R159") _
    , Range("R162:R163,R165:R167,R169:R170,R172,R174")).Select
    Range("R9").Activate
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        'Copy and paste as Text
    Dim rCell As Range
    For Each rCell In Selection
    rCell.Value = rCell.Text
    Next rCell
    'Text to Number
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim Cell As Range
    Selection.NumberFormat = "_( #,##0_);_( (#,##0);_( ""-""_);_(@_)"
    For Each Cell In Selection
    Cell.Value = Cell.Value 1
    Next Cell
    Application.ScreenUpdating = True
    For Each Cell In Selection
        Cell.Value = Replace(Cell.Value, "                                     -   ", "", 1, 1, vbTextCompare)
        Next Cell
    
End Sub


Поделись с друзьями



Рекомендуем посмотреть ещё:



Как задать диапазон в Excel ячейки диапазона могут быть Вязание грелок на чайник мастер класс


Как связать диапазон в excel MS Excel. Группировка строк несвязанных дипазонов Форум
Как связать диапазон в excel Импорт или связывание данных в книге Excel - Access
Как связать диапазон в excel Копирование несвязанных диапазонов Форум
Как связать диапазон в excel Excel. Имена диапазонов Путь воина
Как связать диапазон в excel Диапазон в Excel
Как связать диапазон в excel 350 способов обвязки края. / Вязание спицами / Вязание для
Как связать диапазон в excel «Требуется мастер экстра-класса»
Как связать диапазон в excel ВЯЗАНИЕ спицами и крючком
Как связать диапазон в excel Вязание различных видов воротников со стойкой и



ШОКИРУЮЩИЕ НОВОСТИ