简单的转置和联接

Question

我在电子表格中有以下数据，我想要：如果第2列=是，则拉出数据并合并。

library(splines)
library(MASS)
t <- c(1:101)
t
eg<-as.matrix(egg[,1])
ab<-function(t){
  for (L in 1:70)
  {
    t <- c(1:101)
    knt <- seq(1,101,L+2)
    Phi <- bs(t,4,knt,3);
    c <- ((t(Phi)%*%Phi)%*%t((ginv(t(Phi)%*%eg))))
    xmean <- Phi%*%c
    s <-sum((eg-xmean)^2%*%(ginv(101-(L+4))))
    print(s)
  }

  s
}

我能够获取所有数据并在Google Apps脚本中执行IF函数，并在日志中查看它，但希望将它们组合成这样：

Column 1  Column 2
A         Yes
B         Yes
C         Yes
D
E

我不确定我需要什么代码？

基本上我想如果第2列=是，请拔出第1列，然后将它们合并。

所以我现在有以下内容：

A; B; C;

Answer 1

简单的转置和联接

function concatColumn(column) {
  var column=column || 1;
  var ss=SpreadsheetApp.getActive();
  var sh=ss.getActiveSheet();
  var rg=sh.getRange(1, column,sh.getLastRow(), 1);
  var vA=rg.getValues();
  var vB=[];
  for(var i=0;i<vA.length;i++) {
    vB[i]=[];
    for(var j=0;j<vA[i].length;j++) {
      vB[j][i]=vA[i][j];
    }
  }
  Logger.log(vB[0].join('; '));
  var ui=HtmlService.createHtmlOutput(vB[0].join('; '));
  SpreadsheetApp.getUi().showModelessDialog(ui, 'Transpose and Join');
}

如何将多行的列连接成1？

1 个答案:

简单的转置和联接