for (x = Right; x >= 1; x--) {
  if ([x,1] == "ミカン" || [x,1] == "キウイ") {
    DeleteCol(x);
  }
}
MessageBox("列削除が完了しました");