ｙつゆう - 経済統計練習帳

var comx=new Array();
var shop=new Array();
var credit=new Array();
var sale=new Array();
 
var dic_comx=new Array();
var dic_shop=new Array();
 
function myFunction() {
 
  var code=new Array();
 
  code[1]="1pLzZwbEBI_hxUGxFCYqKc-52GwcQRDexR-1QzXb6538";
 
  code[2]="1ebfFq5kVgi0ZAV6EAWNj9JNKI5Pce3xEs4802Mzqxk8";
 
  code[3]="1zVt0aAjz9d7cf2mLrbG-Emv9WfmlU5-ZdtAks0KMEG0";
 
  code[4]="1BTccVvf3fUfhR12QAFIE6ehYi95_n3c7MUAzVxVJqCo";
 
  code[5]="1YGMTeh_gxoCCJD-97wVzO0yF0csx0p0u03ZemR-rOvM";
 
  code[6]="1KE38DxL-apZsXySPhAUwMFv3a3khDK8SMKBZU0XXYNo";
 
  code[7]="1y_qO0i22uXXbRS0T6eCWnvbpcUnLmzWbnHJPFRT5PyY";
 
  code[8]="1xp9ujcjtttXY52UeTrZe9joKHIaVekmn8hZdQMspBVU";
 
  code[9]="1BBtdzRaVQlzq3VRTIiRF5ORIP3X9ol4SoOQCZ98Rruo";
 
 
 
var id=code[9];
 
 var ex1 = SpreadsheetApp.openById(id);
 var sheet = ex1.getSheetByName("data");
 
 
 var v=sheet.getRange(1,1,100,15).getValues(); 
 
  lastline=0;
 
  for(s=1;s<100;s++){
   comx[s]=""+v[s][0];
   shop[s]=""+v[s][1];
    credit[s]=""+v[s][2];
  }
 
 
 
  for(s=1;s<100;s++){
  if(credit[s].length>0)lastline=s; 
  }
 
 
  for(s=1;s<lastline+1;s++){
  if(comx[s].length<1)comx[s]=comx[s-1];
  if(shop[s].length<1)shop[s]=shop[s-1];
 
  }
 
 
  sx=0;
  for(s=1;s<lastline+1;s++){
  if(credit[s].indexOf("売")>-1)sx=sx+1;
  if(credit[s].indexOf("売")>-1)dic_shop[sx]=shop[s];
  if(credit[s].indexOf("売")>-1)dic_comx[sx]=comx[s];
  }
 
 dicnumber=sx;
 
  for(s=0;s<13;s++){
  sale[s]=new Array();
  }
 
 
  for(n=1;n<dicnumber+1;n++){
  sale[0][n]=dic_shop[n];
  }
 
  for(n=1;n<dicnumber+1;n++){
   for(s=1;s<lastline+1;s++){
  h=0;
  if(credit[s].indexOf("売")>-1)h=h+1;
  if(shop[s]==dic_shop[n])h=h+1;
  for(nx=1;nx<13;nx++){
  if(h==2)sale[nx][n]=v[s][nx+2];
  }
  }
  }
 
 
  id="1jRxi7b9R_VLLgbADpY6Dn7U6DHttGcGwz9FYRGdXmnY";
 
 ex = SpreadsheetApp.openById(id);
  shx = ex.getSheetByName("data");
 
   shx.getRange(1,1,13,dicnumber+1).setValues(sale);
 
 
}