常連

回答者

ベストアンサー

Pythonでのコードをご教授いただけないでしょうか。
車での移動速度を30km/hと仮定し、シェープファイルの道路データを用います。
csvの緯度経度情報が含まれた1500のポイント間の時間行列を作りたいと考えています。

時間を出さない場合は、速度は気にせず、距離行列でお願いいたします。
Python3.6.10となっております

移動速度を仮定し、道路データを用いて時間行列をつくりたい

### 実現したい
|日付|ID|付番|カウント率|
|:--|:--:|--:|--:|
|…|…|…|
|2021-12-31|14|1|
|2022-01-01|10|3|
|2022-01-01|11|2|
|2022-01-01|12|2|
|2022-01-02|15|3|
|2022-01-02|12|2|
|2022-01-02|18|1|
|2022-01-03|11|1|
|…|…|…|
|2022-12-31|11|3|

上記のようなデータフレームにおいて、各行の"カウント率"列に下記④の値を入力したいです。
①各行の日付の前日を基準日として、その１８０日以内の日付が含まれる行をデータフレームから抽出し、
②上記①で抽出した行のうち、IDが一致する行を抽出したときの行数をAとし、
③上記②で抽出した行のうち、付番が１または２である行を抽出したときの行数をBとしたときの、
④B/A×100の値
（上記データフレームの一番下の行を例にすると、2022.6.30~2022.12.30の間で、IDが11である行数をAとし、Aのなかで付番が1または2である行数をBとし、B/A×100の値を"カウント率"列に入力したいです）


### 前提

jupyter labを使用してpythonでのデータ集計を行おうとしています。
自身で下記コードを書いたのですが、実際はデータフレームの行数が２００万近くあり、処理時間がとても長く実用に耐えませんでした。
初歩的な質問で恐縮ですが、高速化を図れる術をご教示いただきたいです。宜しくお願いいたします。

### 発生している問題・エラーメッセージ

```
エラーメッセージ
```

### 該当のソースコード

```python
def sample(row):
    all = len(df[(row["日付"] >df["日付"])&
        (df["日付"]> row["日付"] - timedelta(days=180))&
        (df["ID"] == row["ID"])
        ] )
    count = len(df[((row["日付"] > df["日付"])&
        (df["日付"]> row["日付"] - timedelta(days=180))&
        (df["ID"] == row["ID"]))&
        (df["付番"].isin([1,2]))    
        ] )
    try:
        count_rate = count/all * 100
    except ZeroDivisionError:
       count_rate = np.nan
    row["カウント率"] = count_rate
    return row

df_new = df.apply(sample,axis=1)
```

### 試したこと

swifterを使用しましたが処理時間がほとんど変わらず、またnp.vectorizeを試みたのですが知識不足により実装することができませんでした。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。


データ集計の高速化を行いたいです

### 実現したいこと

Excelで野球の成績表を作っています。
年間の成績表と１日ごとの成績表が20枚あり、打率や出塁率、案打率などを一日ごとに記録し、それを年間のものに集計するものです。年間のものは名前が固定されているのですが、一日ごとのほうは打順が毎回違ったりもするので集計するのが難しいです。
あとから数式を書くのではなく先に書いておいて、使用するときは記録を入力するだけというのはExcelだけでは不可能なのでしょうか？わかる方がいらっしゃればご教授お願い致します。
説明が下手なため、わかりずらいところがあれば説明させていただきます。

### 前提
打率や案打率などの計算式はわかっているので、20枚ある成績を年間のものに集計できればそれでOKです。
### 試したこと
Excelの知識がまだ浅いのですがVLOOLUP関数やROW関数は試しましたが不可能でした。


Excelで野球の成績表を作りたい


## 背景、状況
VBAでボタンをクリックするとエクセルからCSVに出力するマクロを作っています。
マクロの作成依頼者からは以下の要望を含めてコードを書くように依頼されました。

- PostgreSQLにデータをインポートできるCSVを出力
- CSVの文字コードは全て「Shft_JIS」
- SQLの文字データ型は全て「character」
- 全てのセル値をダブルクオートで囲んで出力
- Openステートメントでファイルを開く
- Printステートメントでデータ入力処理を行う

## 該当のソースコード
```VBA
Public Sub CSV出力()
    Dim ws As Worksheet
    Dim maxrow As Long
    Dim csvFile As String
    Dim fileNo As Integer
    Dim wrow As Long
    Dim wcol As Long
    Dim i As Long
    Dim val As String
    Dim out_line As String
    Const stCol = 1
    Const enCol = 144
    Dim arrVal(enCol - stCol) As String
    
    csvFile = ActiveWorkbook.Path & "sample.csv"
    
    Set ws = Worksheets("Sheet1")
    maxrow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    fileNo = FreeFile
    Open csvFile For Output As #fileNo
     For wrow = 3 To maxrow
         i = 0
         For wcol = stCol To enCol
            '1データ取得
            val = ws.Cells(wrow, wcol).Value
            'データをダブルクオートでくくり、配列へ格納
            arrVal(i) = wrap_data(val)
            i = i + 1
         Next
         'カンマで連結
         out_line = Join(arrVal, ",")
         Print #fileNo, out_line
     Next
    Close #fileNo
    
    MsgBox ("CSVファイルを「Shft_JIS」で出力しました。レコード部分のみ出力しています。")
End Sub

'入力文字列をダブルクオートでくくる
Private Function wrap_data(ByVal val As String) As String
    wrap_data = """" & val & """"
End Function
```

## 知りたいこと
依頼者にコードのレビューを実施したところ、「データを配列へ格納する」手順は良いが、これだけだと、**「ただ格納しているだけでSQLに入れられるように書き込みができていない」**、という指摘を受けました。

上記のマクロでCSV自体は問題なく出力できており、解決策を求めているわけでは無いので、Q&Aではなく、意見交換とさせていただきました。
入力処理に関して皆さんはどう書いているかご意見いただけると幸いです。
よろしくお願いいたします。

### 補足情報（FW/ツールのバージョンなど）
PC：Windows11
ソフト：Microsoft365 Excel


【VBA】OPENを使ってCSVファイルを出力するコードの書き方

### 前提

早期リターンを勉強しているのですが、早期リターン利点として「防御的プログラミングでの早期return」で使えるとあるのですが、内容の意味がいまいち分かりませんでした。
また参考として、下記のコードの早期リターンでの記述するとどのようになるのでしょうか？

[早期リターンURL]：
https://shinkufencer.hateblo.jp/entry/2020/12/05/000000



### 発生している問題・エラーメッセージ

```
def following?(other_user)
    self.followings.include?(other_user)
  end

  def follow(other_user)
    unless self == other_user
      self.relationships.find_or_create_by(follow_id: other_user.id)
    end
  end

  def unfollow(other_user)
    relationship = self.relationships.find_by(follow_id: other_user.id)
    if relationship
     　relationship.destroy 
    end
　　　　end
```



### 試したこと

上記コードを早期リターンで直すとどう書けるのかをご教示頂ければ幸いです。




早期リターンの記述方法

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-10-26/e1067d02-ba04-4547-9e83-2893ab2b1d24.png)### 前提

シフト表をエクセルにて作成中です
勤務時間を計算する方法が待ったく想像もつかず
質問させてください。

休日日数は”休”の数をcountifなどで計算することは理解できます。
出勤日数は””と”休”以外の数を計算すればよいのだと思うのですが

勤務時間の部分の計算がまったくわからないです。
vlookup関数でA～/の文字を検索して　就業時間から開始時間と休憩時間を
引いてそれを１日から３１日まで計算すればよろしいのでしょうか？
マクロならばどう表現すればよろしいでしょうか？
VBAでも構いません。
その場合はリスト項目が変更されたとき就業時間も変更される場合は
どこにプロシージャを書けばよいでしょうか？
よろしくお願いいたします。



エクセルでシフト表作成

### 前提
自然言語処理について勉強しています。
Wikipediaのdumpデータから本文を抜き出して処理をしようと思ってます。
用意したテキストファイルから段落ごとに分割し表示したいです．

### 実現したいこと
0. テキストファイルを読みこんでtextに格納
0. textリストから記号などの削除（下図左）
0. textを改行4つ（図だと三つになってますが四つです）でsplitして記事毎にhistory_protoに格納（下図右上）
0. 記事の段落ごとにprotonに格納＊1
0. historyprotoの要素を一つずつ取り出して-Ochasenで名詞のみをhistoryに格納＊2（下図右下）

0. ＊1と＊2を繰り返す
0. historyを表示（段落ごとに分割し，さらに名詞で分割された二次元配列になる）
### 該当のソースコードと用意したテキストファイルの一部のイメージ![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-10-22/90aa8caf-5225-4d1f-8f2d-323a018004f5.jpeg)

※注図のhistory promoは誤字で正しくはhistory proto です。
```pythonソースコード
# -*- coding: utf-8 -*-
from gensim.models import KeyedVectors
import MeCab
import gensim
import pandas as pd
import math
import re
print("モデルロード")
# model_dir = 'entity_vector.model.txt'
# model = KeyedVectors.load_word2vec_format(model_dir, binary=False)
myfile = open('history_0text.txt')
print("\n\nテキストを読み込みました\n\n")  # history
# 以下に抽出したい文textここをファイルを読み込むように変更
# Gfile = open('')  # ガイド文書

htext = myfile.read()
m = MeCab.Tagger("-Ochasen")
mp = MeCab.Tagger()
# m.parse("")
print("処理開始")
removeW = re.compile(

    '[!"#$%&\'\\\\()*+,-./:;<=>?@[\\]^_`{|}~「」〔〕“”〈〉, ，『』【】＆＊・（）＄＃＠。、？！｀＋￥％　]')
text = removeW.sub('', htext)

# text = re.sub(r"\n", "", text)  # 一行づつ配列に入れる時に改行文字が混じったから消しとく
text = re.sub(r'[a-zA-Z0-9]+', "", text)  # 英数字をすべて消す
text = text.replace("[]", "")  # 脚注で無意味に混じった[]の削除
text = text.replace("\s", "")
# print(text)
print("\n\ntext clean complite!\n\n邪魔者消します")
historyproto = text.split('\n\n\n')
historyproto = list(filter(None, historyproto))
print("記事毎に分割しました\n\nnext:空要素を削除\n\n")
history = []
for x in range(len(historyproto)):
    proton = [line.split()[0] for line in m.parse(
        historyproto[x]).splitlines() if "名詞" in line.split()[-1]]
    if len(proton) != 0:
        history.append(proton)

for i in range(len(history)):
    print("記事",i+1,"こめの単語数は\t[", len(history[i]),"]\n")
    print("\n", i+1, "ばんめの記事\n")
    print(history[i])


exit
```
用意したテキストファイルは合計9記事分あります．





###実行結果でおかしいところ
一つめの記事の1部分がなぜか別の記事扱いになってます．

```cmd
['村上', '隆', 'ゴルファー', '村上', '隆', '青木', '功', '尾崎', '将司', '青木', '功']
記事 3 の単語数は       [ 2 ]



```

```
### 現在起きている問題
おそらく区切りがうまくできておらず，記事が余計に分割されている状態です．


### 補足情報（FW/ツールのバージョンなど）
MacBookPro（2017）macos:11.6.7
usage: /System/Library/Frameworks/**Python.framework/Versions/2.7**/Resources/Python.app/Contents/MacOS/Python [option] ... [-c cmd | -m mod | file | -] [arg] ...
Try `python -h' for more information.



textファイルを記事毎に分割し，さらに記事中の名詞を抽出して二次元配列にする．

pythonでバイナリデータの読み込みを行っています。

512Hzで取得したある３つのセンサのデータを６バイト（２バイト×３個）に圧縮してあります。
１つのセンサからはセンサ値(12bit)とゲイン（４bit）があり、それを２バイトに圧縮しています。
２バイトの前半１バイトにセンサ値の下位８bit、後半１バイトにゲイン値4bit（bit7-4）センサ値の上位4bitが入っています

今はf.read(2)とstructで２バイトずつ処理しているのですが、 どうしても遅いので、高速化のアイデアをいただけたら助かります。
よろしくお願いします。


pythonで不規則なバイナリデータの読み込み

投稿者(Mr.PotatoHead)の諸事情により削除しました。



 期待する出力結果を得たいです

259列、15000行あるcsvファイルが複数あります（１００以上）
ファイル名と集計結果を１つのcsvもしくはexcelに書き出したいです。
csv＝SJIS　でカンマで区切られてます。少数、整数
行数は変動しますが最大が１５０００です。

項目としてcsvファイル名、ABC値、TIME、量、回数、総回数、バージョン　の７項目を下記条件のデータを抽出したい。
・ABC値＝２列目（B列）が６の時に105列目（DA列）の最大値を
・TIME＝ABC値を取得したところのA列の値（時刻）
・量＝１４４列目（EN列）の最大値
・回数＝１４６列目（EP列）の最大値
・総回数＝１５０列目（ET列）の最大値
・対象＝２４９列（IO列）が「P：」の時の２５１列（IQ列）の値

下記のように書き出したいです。
csvファイル名，ABC値，TIME，量，回数，総回数，バージョン
JJ12345***.csv，25.3，15：34：06,　12456,　113,　54896，8.885.696
JF45678***.csv,　5.1, 09：45：55,　4560,　457,　54786, 9.566.567


当方、多少のVBAはできるのですが、複数ファイルの対応ができない初心者です。
仕事でvbsも扱いましたが、編集して使うぐらいで、基礎知識がありません。これから覚えていこうと思いますが、今回急ぎのためご教授いただきたいと思っております。

（vbsかvba）複数のcsvファイルからそれぞれ指定の集計結果を抽出したい

C言語で関数ポインタの配列を使ってコードを書きたいのですが、「関数ポインタの配列」などと検索しても、ポインタ配列についてなど関係のない記事ばかりヒットしてしまい、参考になる文献にあたる事ができません。

http://rainbow.pc.uec.ac.jp/edu/program/b1/Rep0-1b.htm

↑のようなサイトを見つけたのですが、このサイト以外で参考になるものを教えてください。（できればどのようにして見つけたかも教えていただけると幸いです。）
書籍でもwebサイトでも英語でも、、、なんでもOKです。よろしくお願いします。

---
具体的なコードがないとサイトの紹介ができないという意見（？！）が多かったので、こちらにやりたいことの一例を書いておきます。
以下のコードは、printfのサブセットを自作した時のコードの一部です。
```c
static int check_fmt(va_list ap, char fmt)
{
　　if (fmt == 'c')
　　　　return (ft_putchar_len(va_arg(ap, int)));
　　if (fmt == 'u')
　　　　return (ft_putnbr_len(va_arg(ap, unsigned int)));
　　if (fmt == 's')
　　　　return (ft_putstr_len(va_arg(ap, char *)));
　　if (fmt == 'd' | fmt == 'i')
　　　　return (ft_putnbr_len(va_arg(ap, int)));
　　if (fmt == 'p')
　　　　return (ft_putaddress_len(va_arg(ap, intptr_t)));
　　if (fmt == 'x')
　　　　return (ft_putnbr_base(va_arg(ap, unsigned int), "0123456789abcdef"));
　　if (fmt == 'X')
　　　　return (ft_putnbr_base(va_arg(ap, unsigned int), "0123456789ABCDEF"));
　　return (0);
}
```

このコードを関数ポインタの配列を使うと綺麗になるというのがいまいち分かりません。上記のサイトでは、標準入力をするときに直接関数を指定する事ができるからコードが綺麗になっているので、そうでない（即ち上の例のようなとき）にコードが綺麗になるのが分かりません。

C言語 関数ポインタの配列

あるExcel1列のそれぞれのセルの値に文字列のみ、文字列と数値、数値のみのセルがあり、
列ごと検索して数値のみのセルの場合その行を削除するという処理を繰り返していく処理を書きたいのですが、
その場合の、変数へどのような値を入れたらいいのかがわからない状況です。

今書こうとしているイメージが

Dim number As Long

number = IsNumeric(Columns("H:H"))

Columns("H:H").Find(What:="aa", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).delete

このようなものなのですが
正しい書き方を教えていただけませんでしょうか。


セルの1列の範囲のみを検索していくときの変数の書き方

### 前提・実現したいこと
ファンクションジェネレーターをPythonを用いて制御させるシステムを作成しています。

Excelの表から周波数と振幅の値を抜き出して、
その値でファンクションジェネレーターの各コマンドから制御しようと思っています。
下記表のNo1なら、周波数と振幅を10に設定する。

プログラミング苦手なうえにPython初めてでベースのものを参考に自分で書き換えていますが、Excelから値を抜き出してくる部分で手間取っています。
Excelの表から列を読み込むことはできてると思いますが、そこからがわからなくなっています。
現在考えているのは、No1までは手動でファンクションジェネレーターの設定をし、
Pythonを実行させたらNo2の設定にする。
またPythonを実行させたらNo3の設定にする。
というようなプログラムを作成したいです。

ファンクションジェネレーターのコマンドについては下記のサイト等を参考に作成しています。
https://teledynelecroy.com/japan/pdf/support/t3awg3kseries-afg-pm-jp.pdf
ファンクションジェネレーターの動作については、中心周波数と振幅のみの変更ができればとりあえずはいいと思っています。
Excelの表は下記のようになっています。
|No|周波数|振幅|
|:-|:--:|--:|
|1|10|10|
|2|20|20|
|3|30|30|
・
・
・



### 該当のソースコード

```Python
#(FG_test1.py)

import os
import subprocess
import re
import time
import numpy as np
import openpyxl
#import pymsteams
from FUNCTIONGENERATOR import FUNCTIONGENERATOR

#---------------------------------------------
#
# 機能ON/OFF
#
#---------------------------------------------
GPIB_DEVICE_FUNCTIONGENERATOR_ON = True

#---------------------------------------------
#
# 初期設定
#
#---------------------------------------------
## 評価項目Excelの絶対パスを"path(str型)"に記入
path = './FG_test.xlsx'

## 評価項目Excelのシート名を"sheet_name(str型)"に記入
sheet_name = 'test'

## 読み込み始める行番号を指定。最初から処理する場合は5行目を指定すること。
start_row = 2

## FUNCTIONGENERATORのインスタンス"FG"を生成
if GPIB_DEVICE_FUNCTIONGENERATOR_ON :
    FG = FG_test2()

#---------------------------------------------
# シートデータ"sheet"、最大行"sheet.max_row"、
# 最大列"sheet.max_column"を取得する
#---------------------------------------------
def OpenExcel(path):
    wb = openpyxl.load_workbook(path, data_only=True)
    sheet = wb[sheet_name]
    return sheet,sheet.max_row,sheet.max_column

#---------------------------------------------
# Excelシートデータから取得波形設定を読み込み
# No、中心周波数(freq)、振幅(ampl)をExcelから取得する
#---------------------------------------------
def ReadWaveformSettings(sheet, i):
	No			  = int(sheet.cell(row=i, column=1).value)
    freq          = int(sheet.cell(row=i, column=2).value)
    ampl		  = int(sheet.cell(row=i, column=3).value)

    return freq, ampl

#---------------------------------------------
# main関数
# forループは評価項目Excelの最終行"max_row"まで実行される
#---------------------------------------------
def main():
    ## 評価項目エクセルを開く
    sheet, max_row, max_column = OpenExcel(path)

    Range = np.arange(start_row, max_row+1)


        ## No、中心周波数(freq)、振幅(ampl)をExcelから読み出す
        No, freq, ampl = ReadWaveformSettings(sheet, i)

        if GPIB_DEVICE_FUNCTIONGENERATOR_ON :
        	#現在の設定の照会
        	#FG.inquiry()
        	#設定の初期化
        	#FG.Initialize()
            ##周波数、振幅、位相、オフセットの設定
            FG.setting( , )
            
    if GPIB_DEVICE_FUNCTIONGENERATOR_ON :
        FG.close()

    print("")
    print("--- Finish All Processes ---")

#---------------------------------------------
#
# 実行部
#
#---------------------------------------------
if __name__ == "__main__" :
    print("-----------------------------------------")
    print("---       Check FUNCTIONGENERATOR ON      ---")
    print("-----------------------------------------")

    main()



#(FG_test2.py)
# -*- coding: utf-8 -*-

import sys
import time
import pyvisa as visa


VISA_LIB_PATH = 'C:\\Windows\\System32\\visa32.dll'
TIMEOUT = 10000

class FUNCTIONGENERATOR :

    def __init__( self ) :
        self.RsrcMgr = visa.ResourceManager( VISA_LIB_PATH )
        self.Inst = None

    def open( self, gpibId ) :
        address = 'GPIB0::' + str( gpibId ) + '::INSTR'
        self.Inst = self.RsrcMgr.open_resource( address )
        self.Inst.timeout = TIMEOUT

    def close( self ) :
        ret = self.Inst.close()
        # print( ret )

    def scan( self ) :
        self.RsrcMgr.list_resources() # 最初にScanしないとエラーが発生するので一回実行
        

	def Initialize(self):
		seif.Inst.write("*RST")						#設定の初期化

	def inquiry(self):							#現在の設定の照会
        seif.Inst.read("FREQUENCY?")					#周波数の照会
        seif.Inst.read("VOLTAGE：AMPLITUDE?")			#振幅の照会

    def setting( self , fre , amp ) :							#周波数、振幅、位相、オフセットの設定
        seif.Inst.write("FREQUENCY freE3")			#周波数の設定
        seif.Inst.write("VOLTAGE:AMPLITUDE amp")	#振幅の設定
        seif.Inst.write("VOLTAGE:OFFSET 0.00")		#オフセットの設定
        seif.Inst.write("PHASE:ADJUST 0DEG")		#位相の設定


def main() :
    argv = sys.argv
    argc = len( argv )

    FG = FUNCTIONGENERATOR()

    if argc == 1 :
        print( FG.scan() )
        sys.exit()

    devId = argv[1]
	argf = 
	arga = 
	
    FG.open( devId )

    #FG.inquiry()		#現在の設定の照会
    #FG.Initialize()		#設定の初期化
    FG.setting( argf , arga )		#周波数、振幅、位相、オフセットの設定
    
    FG.close()

if __name__ == "__main__" :
    main()

```


PythonでExcelから値を抜き出したい

ニュートン法を用いてある関数f(θ)=u×sin(θ)+cos(θ)-0.3を解きたいです。
このときuは変数でuごとにθを求めたいのですがうまくいきません
仮にuを0.05≦u≦0.15としたときに以下のようにエラーが出ます。
D=u[i]*np.sin(theta0)+np.cos(theta0)-0.3
IndexError: index 2 is out of bounds for axis 0 with size 2
というエラーが出ます。
u[i]がなければうまくいきますが何かいい方法はないでしょうか？




u=np.arange(0.05,0.15,0.05)

i=0
theta0=1
eps=0.0001


while i<=len(u):
    while True:
        f=u[i]*np.sin(theta0)+np.cos(theta0)-0.3
        df=u[i]*2*np.cos(2*theta0)-np.sin(theta0)
        theta=theta0-D/dD
        if abs(theta-theta0)<=eps:
            break
        theta0=theta
    i=i+1
print(u[i],round(theta0,2))

pythonである変数ごとにニュートン法を解きたいです

# やりたい事
- flaskのルーティングで共通の処理を実行したい。
  - 例えば、ログイン後のセッションチェック等

# コードについて
- ルーティングはBlueprintで分割しています。
- 全ルーティング共通となると、indexページでもセッションチェックが入ってしまうため、Blueprint毎等、適宜設定できると嬉しいです。
- 現在は、各ルーティング関数内で共通関数を呼び出している状態ですが、下記のコードのようにおまじない的な感じになる為できたら辞めたいと思っています。

一部抜粋：
```python
@app.route("/top")
def top():
    if sessionCheck():
        return redirect(url_for('index.index'))

    # 各種処理

    return render_template('top.html')

@app.route("/search")
def search():
    if sessionCheck():
        return redirect(url_for('index.index'))

    # 各種処理

    return render_template('search.html')
```
よろしくお願いいたします。

flaskのルーティングでの共通処理

### 前提・実現したいこと

仕様の説明が上手くできてないので、再度、新規に投稿します。
Excel VBAにて（添付映像）
①	I列に区分け条件があります			
②	区分けされた「行」にそれぞれの数値があります			
③	行毎の集計を　CP列からEC列の2行/5行/6行に合計したい		
④	JA ～JD に条件別に合計をしてみました	
⑤	④の値をCP2/CP5/CP6に記載
⑥　①②③までを、ダイレクト集計可能なら④以降はいらない

I列の条件区分をJA2に集計するところまでは、何とかたどりつきました。

Dim i As Long
For i = 1 To 4

 Range("IZ2").Offset(, i) = WorksheetFunction.SumIf(Range("I:I"), Choose(i, "決", "D", "E*○", "E*△"), Range("CP:CP"))
Next i

上記のRange（”IZ2”）と　Range("CP:CP")を1文ずつ作成すれば
出来そうですが、もう少しシンプルな内容の構成にしたい
For～Next の二重ループで可能でしょうか？
ヒントがあれば、ご教授願います。

![イメージ説明](52e8f43842f8b8fe45ff5e559d1559e3.jpeg)


### 発生している問題・エラーメッセージ


### 該当のソースコード


### 試したこと
For ～Next で条件別のデータ集計が可能になった

Dim i As Long
For i = 1 To 4

Range("IZ2").Offset(, i) = WorksheetFunction.SumIf(Range("I:I"), Choose(i, "決", "D", "E*○", "E*△"), Range("CP:CP"))
Next i

この先の　CP列からEB列までも　For ～Next　の二重ループの作成方法のヒントを教えてください。


### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Excel VBA  For～Next の二重ループを教えてください。

### 前提・実現したいこと

二つの別々のブックを参照して、第３の新しいブックにリストを作成したいです。
dataファイルに格納されているinputWbのA2からA最終行と、別ブックのRefdataのA2からA245を比較し、inputWbに記載がない項目があれば、項目を追加するためのコードです。

不足情報があれば追記させていただきますので、皆様のアドバイスをいただければ幸いです。
何卒よろしくお願い致します。

### 発生している問題・エラーメッセージ

```
以下のように記載すると、For each AddListでエラー1004「アプリケーション定義またはオブジェクト定義のエラーです。」と表示されます。
```

### 該当のソースコード

```ここに言語名を入力
Sub CreateList()
 
    '----- Read book from \data folder
    Dim inputWb As Workbook  ‘--dataフォルダ内に格納されているブック
    Dim outputWb As Workbook '--新しく作成するブック
    Dim Refdata As Workbook  '--参照ブック
    Dim inputSh As Worksheet
    Dim RefdataSh As Worksheet
    
    Dim inputFileName, inputFilePath As String
    inputFileName = Dir(ThisWorkbook.Path + "\data*.xlsx")
    inputFilePath = ThisWorkbook.Path + "\data\" + inputFileName
    
    Dim RefdataFilePath As String
    RefdataFilePath = ThisWorkbook.Path + "\Reference Data.xlsx"
    
    Set inputWb = Workbooks.Open(inputFilePath)
    Set outputWb = Workbooks.Add
    Set inputSh = inputWb.Sheets(1)
    
    Set Refdata = Workbooks.Open(RefdataFilePath)
    Set RefdataSh = Refdata.Sheets(1)
   
    Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    Dim r As Long
    Dim AddList
    For r = 2 To 245
    
        ‘—inputWbのA2からA最終行と、RefdataブックのA2からA245までの項目をそれぞれ参照
        For Each AddList In inputSh.Range("A2:" & LastRow)　

　　　　 ‘—ここでエラー1004「アプリケーション定義またはオブジェクト定義のエラーです。」
        ‘—もしinputWbにRefdataの項目がなければ
        If InStr(inputCountry.Value, RefdataSh.Range("A" & "r").Value) = 0 Then　　
            '—RefdataのA248からG251に記載されているフォーマットをinputWbの最終行に追加する
            RefdataSh.Range("A248 : G251").Copy  
            outputWb.Sheets(1).Range("A" & LastRow).PasteSpecial Paste:=xlPasteColumnWidths
 　
　　　　‘—コピー＆ペーストしたフォーマットのA列に、inputWbとRefdataを比較し、inputWbに漏れていた情報（RefdataのA及びB列）の文字列を追記する。
            outputWb.Sheets(1).Range("A" & LastRow - 3) = Refdata.Range("A" & "r").Value　　
            outputWb.Sheets(1).Range("A" & LastRow - 2) = Refdata.Range("A" & "r").Value
            outputWb.Sheets(1).Range("A" & LastRow - 1) = Refdata.Range("A" & "r").Value
            outputWb.Sheets(1).Range("A" & LastRow) = Refdata.Range("A" & "r").Value
            outputWb.Sheets(1).Range("B" & LastRow - 3) = Refdata.Range("B" & "r").Value
            outputWb.Sheets(1).Range("B" & LastRow - 2) = Refdata.Range("B" & "r").Value
            outputWb.Sheets(1).Range("B" & LastRow - 1) = Refdata.Range("B" & "r").Value
            outputWb.Sheets(1).Range("B" & LastRow) = Refdata.Range("B" & "r").Value
        End If
        Next AddList
    Next r
 End Sub
```

二つの別々のブックを参照して、第３の新しいブックにリストを作成したいです。

以下のログの中から、 - - - の部分を無視するように正規表現で検索を行っていますが、
以下の書き方で合っていますでしょうか？　その他、修正した方が良い正規表現箇所がありましたらアドバイスください。
よろしくお願い致します。
```
 if re.match(r"^-*$", line):
```

```python
import re

file_name = "iperf-result.log"
time_stamp = ""

with open(file_name, "r", encoding='shift_jis') as f:
    lines = f.readlines()

for line in lines:
    if re.match(r"^\s*$", line):        # 空白行無視
        continue
    if re.match(r"^Connecting", line):  # 先頭がConnectingで始まる場合は無視
        continue
    if re.search(r"local.*", line):     # 文字列中に local が含まれている行は無視
        continue
    if re.search(r"Interval.*", line):  # 文字列中に Interval が含まれている行は無視
        continue
    if re.match(r"^-*$", line):        # - 行を無視
        continue
    if re.search(r"sender", line):     # 文字列中に sender が含まれている行は無視
        continue
    if re.search(r"receiver", line):   # 文字列中に receiver が含まれている行は無視
        continue
    if re.match(r"iperf Done.", line): # 文字列中に iperf Done が含まれている行は無視
        continue
    if re.match(r"\d{4}/\d{2}.*", line): # タイムスタンプを抽出
        time_stamp = line.rsplit("\n")
        continue
    newlines = line.split()
    newlines.insert(0, time_stamp)  # タイムスタンプを一番初めに挿入
    print(newlines)
```

iperf-result.log
```
2021/09/0217:15:11.24 
Connecting to host 10.2.241.1, port 5201
[  4] local 10.2.241.3 port 62946 connected to 10.2.241.1 port 5201
[ ID] Interval           Transfer     Bandwidth
[  4]   0.00-1.00   sec  5.00 MBytes  41.9 Mbits/sec                  
[  4]   1.00-2.01   sec  3.25 MBytes  27.0 Mbits/sec                  
[  4]   2.01-3.00   sec  15.4 MBytes   130 Mbits/sec                  
[  4]   3.00-4.01   sec  13.4 MBytes   111 Mbits/sec                  
[  4]   4.01-5.02   sec  4.00 MBytes  33.4 Mbits/sec                  
- - - - - - - - - - - - - - - - - - - - - - - - -
[ ID] Interval           Transfer     Bandwidth
[  4]   0.00-20.00  sec   386 MBytes   162 Mbits/sec                  sender
[  4]   0.00-20.00  sec   386 MBytes   162 Mbits/sec                  receiver

iperf Done.                
```

python 正規表現 - の検索

VBAの初学者です。テキスト通りに記入しているつもりですが、エラーが出てしまいます。解消方法となぜエラーが出るかよろしければ、ご教授お願いいたします。二行目のSubの部分でエラーが出ていると表示されます。
![イメージ説明](8b398939fbeb612eefb837757aa23288.png)

```VBA
Sub オブジェクトの操作()
    Range("A1").Value = "Excel VBA"
End Sub
Sub 別シートに入力()
    Worksheet("Sheet2").Range("A1").Value = "はじめてのVBA"
End Sub


```

VBA　コンパイルエラーの対応方法

### 前提・実現したいこと

VBAを使い、エクセルの文字列（iMacrosのコード）を、iMacrosの.iimファイルに書き込みを行いました。

テキストエディタで見ると、書き込みができているのが確認できたのですが、
iMacros側で開けると空白でした。同じ現象が起きて解決された方はいらっしゃいますか？

実現したいのは、エクセルに書いたiMacrosのコードを．iimファイルに直接書き込み、iMacrosで実行できるようにしたいです。

プログラミングは、まったくの素人です・・。
宜しくお願いします！


### 該当のソースコード

Sub ﾘｽﾄｲﾝ()

Open "パス名/list01.iim" For Output As #1
 
Dim i As Long
Dim f As String

For i = 7 To 10000
     
     
     If Cells(i, 1).Value = "" Then 
        Exit For  
    End If
    
    If i > 7 Then
        Print #1, ""
    End If
 

      f = Cells(i, 1).Value 
    Print #1, CStr(f);
        
       
Next
 

Close #1
 
End Sub