工作表1中的单元格范围复制到不同单元格中的工作表4

时间:2015-09-04 17:16:32

标签: excel-vba vba excel

我在处理从一张纸到另一张纸的细胞时遇到问题。错误脚本超出范围。看起来很简单但不起作用。来自专业人士的任何建议。

app.directive("buildingSearch", function () {
    // I bind the $scope to the DOM behaviors.
    function link(scope, element, attributes, controllers) {
        //Attach the autocomplete functionto the element
        element.autocomplete({
            source: 'api/building/unitOrgMdl',
            minLength: 2,

            //*********
            //This is the addition I made as per the jquery documentation that I figured would work but doesn't
            headers: {
                'Authorization': '122222222222'
            },
            //*********

            select: function (event, ui) {
                element.val(ui.item.label);
                element.blur();
                scope.getbuildings({ data: ui.item })
                return false;
            }
        });
    }

    // Return the directive confirugation.
    return ({
        link: link,
        restrict: "EA",
        replace: true,
        scope: {
            getbuildings: '&'
        }
    });
});

1 个答案:

答案 0 :(得分:2)

如果您不需要格式化,我会做类似

的事情
Set ws1 = WorkSheets("Sheet1")
Set ws4 = WorkSheets("Sheet4")

With ws4
    .Range("A6").Value = ws1.Range("A7").Value
    .Range("E6").Value = ws1.Range("D7").Value
    .Range("H6").Value = ws1.Range("G7").Value
    .Range("G8").Value = ws1.Range("C10").Value
    .Range("A10").Value = ws1.Range("A12").Value
    .Range("G10").Value = ws1.Range("C12").Value
    .Range("A12").Value = ws1.Range("A14").Value
    .Range("A14").Value = ws1.Range("A16").Value
    .Range("A19").Value = ws1.Range("A29").Value
End With