Пример макроса: Заполнение ячеек справа значениями ячеек из диапазона

Sub ForEachCell()  '' e15
    Dim cell As Range
    For Each cell In Sheets("Sheet1").Range("A1:A10")
        cell.Offset(0, 1).value = cell.value
    Next cell
End Sub

(function() {
    var oSheet = Api.GetSheet("Лист1");
    var oRange = oSheet.GetRange("A1:A10");
    oRange.ForEach(function(cell) {
        oSheet.GetCells(cell.GetRow(), cell.GetCol()+1).SetValue(cell
          .GetValue());
    });
})();