Excel 宏到 Google 表格答案

【问题标题】：Excel Macro to Google SheetsExcel 宏到 Google 表格
【发布时间】：2019-07-29 17:45:12
【问题描述】：

尝试将以下用 Excel 编写的代码转换为在 Google 表格中工作。内容清晰，但粘贴公式效果不佳。

If Range("D8").Value = 1 Then
Worksheets("Input").Range("C4:C12").Copy
Worksheets("Wheat").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If

If Range("D8").Value = 2 Then
Worksheets("Input").Range("C4:C12").Copy
Worksheets("Barley").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If

If Range("D8").Value = 3 Then
Worksheets("Input").Range("C4:C12").Copy
Worksheets("Rye").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If

If Range("D8").Value = 4 Then
Worksheets("Input").Range("C4:C12").Copy
Worksheets("Canola").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If

If Range("D8").Value = 5 Then
Worksheets("Input").Range("C4:C12").Copy
Worksheets("Peas").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If

If Range("D8").Value = 6 Then
Worksheets("Input").Range("C4:C12").Copy
Worksheets("Oats").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If

If Range("D8").Value = 7 Then
Worksheets("Input").Range("C4:C12").Copy
Worksheets("Flax").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If

Range("C5").Value = Range("C5").Value + 1
Range("C10:C12").ClearContents

结束子

【问题讨论】：

您能edit 对您尝试过的应用程序脚本代码提出问题吗？谢谢！
看看this answer
请查看 Google Apps 脚本指南和参考资料，并尝试自己编写一些代码。社区将很乐意帮助您解决可能遇到的特定问题。 developers.google.com/apps-script/guides/sheets developers.google.com/apps-script/reference/spreadsheet

标签： excel google-apps-script

【解决方案1】：

我不知道这是否是您正在寻找的确切代码，但请尝试一下。

if(worksheets.getRange('D8').getValue()==1)
{
   var copysheet = worksheets.getRange("Input!C4:C12");
   copysheet.copyTo (worksheets.getRange ("Wheat!A1"), {contentsOnly: true});  
}            
if(worksheets.getRange('D8').getValue()==2)
{
   var copysheet = worksheets.getRange("Input!C4:C12");
   copysheet.copyTo (worksheets.getRange ("Barley!A1"), {contentsOnly: true});
}
if(worksheets.getRange('D8').getValue()==3)
{
   var copysheet = worksheets.getRange("Input!C4:C12");
   copysheet.copyTo (worksheets.getRange ("Rye!A1"), {contentsOnly: true});  
}            
if(worksheets.getRange('D8').getValue()==4)
{
   var copysheet = worksheets.getRange("Input!C4:C12");
   copysheet.copyTo (worksheets.getRange ("Canola!A1"), {contentsOnly: true});
}
if(worksheets.getRange('D8').getValue()==5)
{
   var copysheet = worksheets.getRange("Input!C4:C12");
   copysheet.copyTo (worksheets.getRange ("Peas!A1"), {contentsOnly: true});
}
if(worksheets.getRange('D8').getValue()==6)
{
   var copysheet = worksheets.getRange("Input!C4:C12");
   copysheet.copyTo (worksheets.getRange ("Oats!A1"), {contentsOnly: true});
}
if(worksheets.getRange('D8').getValue()==7)
{
   var copysheet = worksheets.getRange("Input!C4:C12");
   copysheet.copyTo (worksheets.getRange ("Flax!A1"), {contentsOnly: true});
}
   var value=worksheets.getRange("C5").getValue();
   worksheets.getRange("C5").setValue(value+1);
   var clearrange = worksheets.getRange("C10:C12").clear();

worksheets 是活动的电子表格。

【讨论】：