きれ - 経済統計練習帳

var namex=new Array();
var line=new Array();
var comx=new Array();
var point=new Array();
var credit=new Array();
 
function myFunction() {
 
var id="1ECmIAdLFWGH6u-jCoebAKNi2ds2AI-hDN3LAy31aVoc"; 
 ex = SpreadsheetApp.openById(id);
 var sheet = ex.getSheetByName("data");
 
 var v=sheet.getRange(1, 1,431,26).getValues();
 
 
 
for(s=1;s<431;s++){  
line[s]=v[s][1]
comx[s]=v[s][0];
}
 
 
 
 
fastline=6;
lastline=427;  
 
credit[1]="旅客運輸収入定期通勤	"
credit[2]="旅客運輸収入定期通学	"
credit[3]="旅客運輸収入定期小計	"
credit[4]="旅客運輸収入定期構成比	"
credit[5]="旅客運輸収入定期外	"
credit[6]="旅客運輸収入定期外構成比	"
credit[7]="旅客運輸収入計	"
credit[8]="旅客運輸収入手小荷物	"
credit[9]="旅客運輸収入合計	"
credit[10]="貨物運輸収入コンテナ	"
credit[11]="貨物運輸収入車扱	"
credit[12]="貨物運輸収入合計	"
credit[13]="鉄道線路使用料収入	"
credit[14]="鉄道線路譲渡収入	"
credit[15]="運輸雑収	"
credit[16]="総合計	"
 
 
for(s=fastline;s<lastline+1;s++){  
h=0;  
if(comx[s].length>1)h=h+1;  
if(line[s].length<1)h=h+1;  
if(h==2)line[s]="合計";
}
 
var q=new Array();  
var number;  
 sx=0; 
for(s=fastline;s<lastline+1;s++){  
if(comx[s].length<1)comx[s]=comx[s-1];  
if(line[s].indexOf("線")>-1)sx=sx+1;
  if(line[s].indexOf("線")>-1)q[sx]=s;
 
}
 
number=sx;  
 
 
 Logger.log(number);
 
  for(s=0;s<number+1;s++){
  point[s]=new Array(); 
  }
 
 
for(s=1;s<17;s++){  
point[0][s+1]=credit[s];  
}
 
for(s=1;s<number+1;s++){
sx=q[s];
point[s][0]=comx[sx];
point[s][1]=line[sx];
for(tx=1;tx<17;tx++){
point[s][tx+1]=v[sx][tx+1]; 
}  
}  
 
 
 
 var shx = ex.getSheetByName("rev");
 
 
 
shx.getRange(1, 1,133,18).setValues(point); 
 
 
}