我有一个大数据集，我需要以45行间隔复制很多公式。假设我想要第100行中的以下公式直到第145行：<?php $inputs = array(
array(
"in" => '',
"out" => '249.6',
),
array(
"in" => '',
"out" => '396',
),
array(
"in" => '554.4',
"out" => ''
),
array(
"in" => '145.07',
"out" => ''
),
array(
"in" => '',
"out" => '53.87',
),
);
$fTotal = 0;
echo "Start at 0: ";
foreach($inputs as $key=>$sRef) {
$itemValid = true;
$aItem = array();
$amountIn = $inputs[$key]['in'];
$amountOut = $inputs[$key]['out'];
if ($itemValid) {
echo "'".$fTotal."'";
$is_in = 0;
if ($amountIn > 0.0) {
$is_in = 1;
echo "+";
$amount = $amountIn;
$fTotal = $fTotal + $amountIn;
} else {
$is_in = 0;
echo "-";
$amount = $amountOut;
$fTotal = $fTotal - $amountOut;
}
echo "'".$amount."'=";
echo "'".$fTotal."' | ";
$aItem["is_in"] = $is_in;
$aItem["amount"] = $amount;
$aItems[] = $aItem;
}
}
以及从第145行开始，我想要以下公式：averageifs(methane,date,"<="&A108,date,">="&A100)。
我该怎么做？
Example of how I want data at the end附件是一个文件，显示我希望我的数据集在最后看起来如何（间隔较小）。
答案 0 :(得分：0)
请看看
Sub test()
For i = 99 To 1000 Step 45
Range("U" & i + 1).Value = Application.WorksheetFunction.CountIfs(methane, Date, "<=" & Range("A" & i + 9), Date, ">=" & Range("A" & i + 1))
Next i
End Sub