If the matrix in (1) is a square matrix, then we associate with a number denoted by
called the determinant of of order n, written det(A). In order to define the value of a determinant, we introduce the following concepts.
1. Minor
Given any element of we associate a new determinant of order (n – 1) obtained by removing all elements of the jth row and kth column called the minor of .
2. Cofactor
If we multiply the minor of by , the result of the elements in any row [or column] by their corresponding cofactors and is called the Laplace expansion. In symbols,
We can show that this value is independent of the row [or column] used.
月: 2014年4月
行列式
仮に (1) における行列 が正方行列なら, に対して下記に示すある数を関連付けられます.
これは n次 の の 行列式 と呼び, det(A) と記述します.行列式の値を定義するために次の概念を導入しましょう.
1. 小行列式
の任意の要素 がある時, j 番目の行および k 番目の列の全要素を除去して得られた (n – 1) 次の新しい行列式を関連付け,これを の小行列式と呼びます.
2. 余因子
仮に の小行列式に を乗算するなら,それらの対応する余因子による任意の行(または列)における要素の結果は ラプラス展開 と呼びます.記法では
この値は用いられる行または列によらず独立です.
Some special definitions and operations involving matrices
1. Equality of Matrices
Two matrices and of the same order [i.e. equal numbers of rows and columns] are equal if and only if .
2. Addition of Matrices
If and have the same order we define the sum of and as .
Note that the communicative and associative laws for addition are satisfied by matrices, i.e. for any matrices of the same order
3. Subtraction of Matrices
If , have the same order, we define the difference of and as .
4. Multiplication of a Matrix by a Number
If and is any number or scalar, we define the product of by as .
5. Multiplication of Matrices
If is an matrix while is an matrix, then we define the product or as the matrix where
and where is of order .
Note that in general , i.e. the communicative law for multiplication of matrices is not satisfied in general. However, the associative and distributive laws are satisfied, i.e.
A matrix can be multiplied by itself if and only if it is a square matrix. The product can in such case be written . Similarly we define powers of a square matrix, i.e. , etc.
6. Transpose of a Matrix
If we interchange rows and columns of a matrix , the resulting matrix is called the transpose of and is denoted by . In symbols, if then .
We can prove that
7. Symmetric and Skew-Symmetric matrices
A square matrix is called symmetric if and skew-symmetric if .
Any real square matrix [i.e. one having only real elements] can always be expressed as the sum of a real symmetric matrix and a real skew-symmetric matrix.
8. Complex Conjugate of a Matrix
If all elements of a matrix are replaced by their complex conjugates , the matrix obtained is called the complex conjugate of and is denoted by .
9. Hermitian and Skew-Hermitian Matrices
A square matrix which is the same as the complex conjugate of its transpose, i.e. if , is called Hermitian. If , then is called skew-Hermitian. If is real these reduce to symmetric and skew-symmetric matrices respectively.
10. Principal Diagonal and Trace of a Matrix
If is a square matrix, then the diagonal which contains all elements for which is called the principal or main diagonal and the sum of all elements is called trace of .
A matrix for which when is called diagonal matrix.
11. Unit Matrix
A square matrix in which all elements of the principal diagonal are equal to 1 while all other elements are zero is called the unit matrix and is denoted by . An important property of is that
The unit matrix plays a role in matrix algebra similar to that played by the number one in ordinary algebra.
12. Zero or Null matrix
A matrix whose elements are all equal to zero is called the null or zero matrix and is often denoted by or symply 0. For any matrix having the same order as 0 we have
Also if and 0 are square matrices, then
The zero matrix plays a role in matrix algebra similar to that played by the number zero of ordinary algebra.
いくつかの行列を含む特殊な定義と演算
1. 行列が等しい
二つの行列 および が同じ次数で(すなわち行と列の数が同じで) の時にのみ 等しい.
2. 行列の和
仮に および が同じ次数ならば および の 和 を と定義できます.
行列の交換法則と結合法則は,すなわちある同じ次数の行列 を下記のように記述します.
3. 行列の差
仮に , が同じ次数を有するなら および の 差 を と定義できます.
4. 行列のスカラー倍
仮に があって が任意の数またはスカラーの時 の による 積 を と定義できます.
5. 行列の積
仮に が 行列で が 行列の時, または の 積 を行列 と定義できます.ここで
また は 次です.
一般に すなわち行列の積の交換法則は成り立たないことに注意してください.しかしながら結合法則と分配法則は成り立ちます,すなわち
ある行列 がそれ自身との積をつくれるのは正方行列の場合のみです.積 は と記述します.同様に行列の累乗を定義できます.すなわち などです.
6. 行列の転置
行列 の行と列を入れ替えることができるなら,その結果得られる行列は の 転置 と呼び, と記述します.記号では,仮に ならば と記述します.
以下を証明できます.
7. 対称行列と歪対称行列
ある正方行列 は の時 対称 と呼び, の時 歪対称 と呼びます.
任意の実正方行列(すなわち実数の要素のみからなる実正方行列)は常に実対称行列と実歪対称行列の和で表現できます.
8. 行列の複素共役
仮に行列 のすべての要素 が複素共役 で置き換えられたら,その結果得られた行列は の 複素共役 と呼び, と記述します.
9. エルミート行列及び歪エルミート行列
ある行列 がそれ自身の転置の複素共役に等しい時,すなわち であるなら エルミート行列 と呼びます.仮に の場合は は 歪エルミート行列 と呼びます.仮に が実行列ならこれらは対称行列および歪対称行列にそれぞれ短縮されます.
10. 主対角線と行列のトレース
仮に を正方行列とすると対角線上のすべての要素 について であるものを principal あるいは 主対角線 と呼び,主対角線上の全要素の和を の トレース と呼びます.
ある行列の なる要素について の時その行列を 対角行列 と呼びます.
11. 単位行列
ある正方行列について主対角線上の全要素が 1 に等しく他の要素が全てゼロに等しい時 単位行列 と呼び, と記述します. の属性については非常に重要です.
単位ベクトルは行列代数において,普通の代数における数 1 と同じ役割を果たします.
12. 零行列またはヌル行列
ある行列についてその要素が全てゼロに等しいなら ヌル行列 または 零行列 と呼び, または単に 0 と記述します.すべての行列 について同次数の 0 を考えると,
また仮に および 0 が正方行列なら
零行列は行列代数においては通常の対数における数 0 と同じ役割を果たします.
Definition of a matrix
A matrix of order m × n, or m by n matrix, is a rectangular array of numbers having m rows and n columns. It can be written in the form
Each number in this matrix is called an element. The subscripts and indicate respectively the row and column of the matrix in which the element appears.
We shall often denote a matrix by a letter, such as in (1), or by the symbol which shows a representative element.
A matrix having only one row is called a row matrix or row vector while a matrix having only one column is called a column matrix or column vector. If the number of rows and columns are equal the matrix is called a square matrix of order or briefly . A matrix is said to be a real matrix or complex matrix according as its elements are real or complex numbers.
行列の定義
m × n 行列 または mn 行列 は m 行および n 列を有する長方形の配列です.下記の形式で記述できます.
この配列内のそれぞれの数 を 要素 と呼びます.添字の および は,要素の出現する行列における行と列をそれぞれ示しています.
行列はしばしば (1) における のような 1 文字や,代表的な要素を示す記号 で記述します.
ただ 1 行からなる行列を row matrix または 行ベクトル と呼び,ただ 1 列からなる行列を column matrix または 列ベクトル と呼びます.仮に行数 と列数が が等しいならその行列を次数 または単に 次の 正方行列 と呼びます.行列はその要素が実数か複素数かによって 実行列 または 複素行列 と呼びます.
Special curvilinear coordinates
1. Cylindrical coordinates
Transformation equations:
where , ,
Element of arc length:
Jacobian:
Element of volume:
Laplacian:
Note that corresponding results can be obtained for polar coordinates in the plane by omitting dependence. In such case for example, , while the element of volume is replaced by the element of area, .
2. Spherical coordinates
Transformation equations:
where .
Scale factors:
Element of arc length:
Jacobian:
Element of volume:
Laplacian:
Other types of coordinate systems are possible.
特殊な曲線座標
1. 円柱座標系
変換式:
ここで , ,
弧長要素:
ヤコビアン:
体積要素:
ラプラシアン:
依存性を省略した平面内での極座標系で対応する結果が得られることに注意してください.そのような場合,例えば ここで体積要素は面積要素 で置換されます.
2. 球面座標系
変換式:
ここで .
スケール因子:
弧長要素:
ヤコビアン:
体積要素:
ラプラシアン:
他の種類の座標系も可能です.
Gradient, divergence, curl and Laplacian in orthogonal curvilinear coordinates
If is a scalar function and a vector function of orthogonal curvilinear coordinates , , , we have the following results.
1.
2.
3.
4.
These reduce to the usual expressions in rectangular coordinates if we replace by , in which case , and are replaced by , and and .
直交曲線座標における勾配,発散,回転およびラプラシアン
仮に が一つのスカラー関数であり,また が直交曲線座標 , , のベクトル関数の時,下記の結果を得ます.
1.
2.
3.
4.
仮に を で置換すると,以下の場合,つまり , および が , および で置換され, で置換されるような場合などには,これらの結果は直交座標系の通常の式に短縮されます.
Orthogonal curvilinear coordinates. Jacobians
The transformation equations
where we assume that , , are continuous, have continuous partial derivatives and have a single-valued inverse establish a one to one correspondence between points in an rectangular coordinate system. In vector notation the transformation (17) can be written
A point can be defined not only by rectangular coordinates but by coordinates as well. We call the curvilinear coordinates of the point.
If and are constant, then as varies, describes a curve which we call the coordinate curve. Similarly we define the and coordinate curves through .
From (18), we have
The vector is tangent to the coordinate curve at . If is a unit vector at in this direction, we can write where . Similarly we can write and , where and respectively. Then (19) can be written
The quantities , , are sometimes called scale factors.
If , , are mutually perpendicular at any point , the curvilinear coordinates are called orthogonal. In such case the element of arc length is given by
and corresponds to the square of the length of the diagonal in the above parallelepiped.
Also, in the case of orthogonal coordinates the volume of the parallelepiped is given by
which can be written by
where
is called the Jacobian of the transformation.
It is clear that when the Jacobian is identically zero there is no parallelepiped. In such case there is a functional relationship between , and , i.e. there is a function such that identically.
直交曲線座標とヤコビアン
以下の 変換式 は
ここで以下の前提を置きます.つまり , , は連続であり,連続な偏微分を有し,直交座標系 と との間で点が 1 対 1 に対応する単一の逆関数が確立しているとします.ベクトル記法においては変換式 (17) は以下のように書けます.
ある点 は 直交座標 だけで定義出来るだけでなく,座標 によっても定義できます.この をその点の 曲線座標 と呼びます.
仮に および が定数であり, が変化すると, は u1 座標曲線 と呼ばれる曲線を記述します.同様に を通る および 座標曲線を定義できます.
式 (18) から以下が得られます.
ベクトル は点 における 座標曲線へのタンジェントです.仮に が点 におけるこの方向への単位ベクトルならこのように書けます, と.ここで です.同様に次のように書けます. また ここで,それぞれ また です.ゆえに式 (19) は以下のように書けます.
量 , , は時に スケール因子 と呼びます.
仮に , , が点 において相互に垂直とすると,その曲線座標を 直交 と呼びます.そのような場合,弧長の要素 は以下により与えられます.
また上記の直方体の対角線の長さの2乗に対応します.
また,直交座標においては直方体の体積は以下により与えられます.
ここで次のように記述できます.
ここで,
上記は変換式の ヤコビアン と呼ばれます.
ヤコビアンがゼロに等しい時に直方体が存在しないことは明らかです.そのような場合には , および の間には関数関係が存在します.例えば があって, のような場合です.
How to BULK INSERT from text file to the table, which primary key is IDENTITY-constrained column?
I’d like to describe how to BULK INSERT from text file to the table with IDENTITY-constrained primary key. You should insert a column into worksheet for primary key such as ‘AUTO_ID’.
Transact-SQL code is following list. [Table] is table name, FullPath is complete file-path, and FileName is name of text file, respectively. WITH option phrase represents the first row is title.
BULK INSERT dbo.[Table] FROM 'FullPath\FileName.txt' WITH (FIRSTROW = 2);
主キーにIDENTITYの指定のあるテーブルにテキストファイルからBULK INSERTする
SQL Server で作成したデータベースのテーブルにテキストファイルを BULK INSERT する際の備忘録です.主キーとしたい列に IDENTITY を指定すると初期値 1, 増分 1 の整数を主キーとするテーブルになります.列の IDENTITY 指定をしておかないとエラーとなります.
用意するテキストファイルにも工夫が必要です.主キーの列名を AUTO_ID であると仮定すると,テキストファイルの 1 列目を空白にしておかなくてはなりません.
BULK INSERT する際の Transact-SQL コードは以下のようになります.[Table] にはテーブル名,FullPath には完全なファイルパス,FileName にはテキストファイル名を指定します.WITH 句のオプションは 1 行目がタイトル行であることを示しています.
BULK INSERT dbo.[Table] FROM 'FullPath\FileName.txt' WITH (FIRSTROW = 2);
Anabolic exercise in haemodialysis patients: a randomised controlled pilot study
Nutrition rehabilitation in hemodialysis patients is one of the hottest topics. They have reported that resistance exercise has resulted to muscle strength, but the lack of functional capacity. Although this trial has high evidence with RCT, the number of participants may be too small to determine statistically significant.
Anabolic exercise in haemodialysis patients: a randomised controlled pilot study
Danielle L. Kirkman, Paul Mullins, Naushad A. Junglee, Mick Kumwenda, Mahdi M. Jibani, Jamie H. Macdonald
Abstract
Background
The anabolic response to progressive resistance exercise training (PRET) in haemodialysis patients is unclear. This pilot efficacy study aimed to determine whether high-intensity intradialytic PRET could reverse atrophy and consequently improve strength and physical function in haemodialysis patients. A second aim was to compare any anabolic response to that of healthy participants completing the same program.
Methods
In a single blind controlled study, 23 haemodialysis patients and 9 healthy individuals were randomly allocated to PRET or an attention control (SHAM) group. PRET completed high-intensity exercise leg extensions using novel equipment. SHAM completed low-intensity lower body stretching activities using ultra light resistance bands. Exercises were completed thrice weekly for 12 weeks, during dialysis in the haemodialysis patients. Outcomes included knee extensor muscle volume by magnetic resonance imaging, knee extensor strength by isometric dynamometer and lower body tests of physical function. Data were analysed by a per protocol method using between-group comparisons.
Results
PRET elicited a statistically and clinically significant anabolic response in haemodialysis patients (PRET—SHAM, mean difference [95 % CI]: 193[63 to 324] cm3) that was very similar to the response in healthy participants (PRET—SHAM, 169[−41 to 379] cm3). PRET increased strength in both haemodialysis patients and healthy participants. In contrast, PRET only enhanced lower body functional capacity in the healthy participants.
Conclusions
Intradialytic PRET elicited a normal anabolic and strength response in haemodialysis patients. The lack of a change in functional capacity was surprising and warrants further investigation.
Keywords: Weight lifting, Wasting syndrome, Chronic kidney failure, Haemodialysis
Anabolic exercise in haemodialysis patients: a randomised
controlled pilot study
Anabolic exercise in haemodialysis patients: a randomised controlled pilot study
血液透析患者における栄養リハビリテーションは最近のトピックの一つです.レジスタンス運動は筋力増強をもたらしたものの,身体機能の改善には至らなかったという報告です.無作為化比較試験であり信頼性は高いのですが,参加者人数が少なく有意差が出なかったのではないかとも考えられます.
透析患者における蛋白同化運動:無作為化比較試験
Danielle L. Kirkman, Paul Mullins, Naushad A. Junglee, Mick Kumwenda, Mahdi M. Jibani, Jamie H. Macdonald
要旨
背景
透析患者における漸増レジスタンス運動 (PRET) への反応は不明確である.このパイロット有効性研究は,透析患者において透析の間での強度の PRET が萎縮を逆転できるか,また結果的に筋力と身体機能を改善することができるか否かを定義することを目的とする.2番目の目的は蛋白同化反応と,同様のプログラムを完遂した健康な参加者の反応とを比較することである.
方法
単盲検対照試験において 23 名の透析患者と 9 名の健康な個人が無作為に PRET 群と比較対照群 (SHAM) に割り付けられた.PRET 群は強度の運動,つまり新規の設備を使って下肢を進展する運動を完遂した.SHAM 群は軽度の下半身を進展する活動を超軽量の抵抗バンドを用いて完遂した.透析患者の運動は週に 3 回の透析中に,12 週間にわたって行われた.転帰には MRI による膝伸筋容積,アイソメトリックダイナモメーターによる膝伸展力および身体機能の下半身テストが含まれた.データは群間比較を用いたプロトコルメソッドにより解析した.
結果
PRET は透析患者において統計的および臨床的に有意に蛋白同化反応を惹起し (PRET—SHAM, mean difference [95 % CI]: 193[63 to 324] cm3), 健常な参加者においても同様であった (PRET—SHAM, 169[−41 to 379] cm3). PRET は透析患者においても健常者においても筋力を増強させた.対照的に, PRET は健常者においてのみ下半身の身体機能を増強させただけであった.
結論
透析患者において透析中の PRET は正常な蛋白同化と筋力増強を惹起した.身体機能に変化がなかったことは驚くべきものであり,さらなる調査が必要と考えられた.
Keywords: Weight lifting, Wasting syndrome, Chronic kidney failure, Haemodialysis
Anabolic exercise in haemodialysis patients: a randomised
controlled pilot study
How to fix the text file of the food composition of the diet recipes to the first normal form?
In this article, I’d like to describe how to fix the text file of the food composition of the diet recipes, which a facility have provided for one year, to the first normal form in order to insert into database.
Option Explicit Sub LoopProcedure() Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Name Like "Sheet" & "*" Then Call TransportFromTxtToCSV(Sh) End If Next Sh End Sub Sub TransportFromTxtToCSV() Dim mySht As Worksheet Dim myRng As Range Dim myAr As Variant Dim RecAr() As String Dim i As Long Dim j As Long Dim k As Long Dim Date_Serving_Meal As Date Dim Menu_Name As String Dim tmpStart As Long Dim Meal_Time As String Dim Dish As String Dim RecordNumber As Long set mysht = sh RecordNumber = Count_Record(mySht) ReDim RecAr(RecordNumber - 1, 51) Set myRng = mySht.UsedRange myAr = myRng k = 0 Date_Serving_Meal = "2011/1/1" Menu_Name = myAr(1, 11) & myAr(1, 12) & myAr(1, 13) tmpStart = InStr(Menu_Name, ")") Menu_Name = Mid(Menu_Name, tmpStart + 1) Meal_Time = "朝食" For i = LBound(myAr) To UBound(myAr) Select Case True Case myAr(i, 2) = "合 計" Date_Serving_Meal = DateAdd("d", 1, Date_Serving_Meal) Case myAr(i, 2) = "《朝食》" Meal_Time = "朝食" Case myAr(i, 2) = "《昼食》" Meal_Time = "昼食" Case myAr(i, 2) = "《夕食》" Meal_Time = "夕食" Case myAr(i, 2) = "小 計" Case myAr(i, 2) = "^e12【献立" Case myAr(i, 2) Like "動蛋比" & "*" Case myAr(i, 2) = "・・・・・・・・・・" Case myAr(i, 2) = "料理名" Case myAr(i, 2) = "" Case Else Dish = myAr(i, 2) End Select Select Case True Case myAr(i, 3) = "・・・・・・・・・・・" Case myAr(i, 3) Like "EN比" & "*" Case myAr(i, 3) = "食品名" Case myAr(i, 3) Like "一覧表】 ^e11" & "*" Case myAr(i, 3) = "" Case Else RecAr(k, 0) = Date_Serving_Meal RecAr(k, 1) = Menu_Name RecAr(k, 2) = Meal_Time RecAr(k, 3) = Dish RecAr(k, 4) = myAr(i, 3) For j = 5 To 22 RecAr(k, j) = myAr(i, j - 1) Next j For j = 23 To 39 RecAr(k, j) = myAr(i + 1, j - 18) Next j For j = 40 To 51 RecAr(k, j) = myAr(i + 2, j - 35) Next j k = k + 1 End Select Next i Set mySht = Worksheets.Add With mySht .Name = Menu_Name .Range(Cells(1, 1), Cells(RecordNumber, 52)) = RecAr End With Set mySht = Nothing Set myRng = Nothing Erase RecAr End Sub Function Count_Record(ByRef Sh As Worksheet) As Long Dim mySht As Worksheet Dim myAr As Variant Dim i As Long Dim j As Long Dim k As Long Set mySht = Sh myAr = mySht.UsedRange j = 0 k = 0 For i = LBound(myAr) To UBound(myAr) Select Case True Case myAr(i, 2) = "合 計" Case myAr(i, 2) = "小 計" Case myAr(i, 2) = "《朝食》" Case myAr(i, 2) = "《昼食》" Case myAr(i, 2) = "《夕食》" Case myAr(i, 2) = "^e12【献立" Case myAr(i, 2) Like "動蛋比" & "*" Case myAr(i, 2) = "・・・・・・・・・・" Case myAr(i, 2) = "料理名" Case myAr(i, 2) = "" Case Else j = j + 1 End Select Select Case True Case myAr(i, 3) = "・・・・・・・・・・・" Case myAr(i, 3) Like "EN比" & "*" Case myAr(i, 3) = "食品名" Case myAr(i, 3) Like "一覧表】 ^e11" & "*" Case myAr(i, 3) = "" Case Else k = k + 1 End Select Next i Count_Record = k End Function
提供食レシピの食品成分のテキストファイルを第1正規形にするEXCEL VBAコード
ある施設の1年間で提供した食事のレシピの食品成分のテキストファイルから,データベースに取り込むための前処置としてデータを第1正規形に整形する EXCEL VBA コードです.個人的な備忘録です.
94行目以降の関数 Count_Record は,アクティブシートをループして必要なレコード数を計測する関数です.104行目以降で料理名の数(B列),119行目以降で食品名の数(C列)に注目しています.サブルーチン TransportFromTxtToCSV から呼び出して,動的配列の要素数を後で決定するのに用います.
Option Explicit Sub LoopProcedure() Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Name Like "Sheet" & "*" Then Call TransportFromTxtToCSV(Sh) End If Next Sh End Sub Sub TransportFromTxtToCSV() Dim mySht As Worksheet Dim myRng As Range Dim myAr As Variant Dim RecAr() As String Dim i As Long Dim j As Long Dim k As Long Dim Date_Serving_Meal As Date Dim Menu_Name As String Dim tmpStart As Long Dim Meal_Time As String Dim Dish As String Dim RecordNumber As Long set mysht = sh RecordNumber = Count_Record(mySht) ReDim RecAr(RecordNumber - 1, 51) Set myRng = mySht.UsedRange myAr = myRng k = 0 Date_Serving_Meal = "2011/1/1" Menu_Name = myAr(1, 11) & myAr(1, 12) & myAr(1, 13) tmpStart = InStr(Menu_Name, ")") Menu_Name = Mid(Menu_Name, tmpStart + 1) Meal_Time = "朝食" For i = LBound(myAr) To UBound(myAr) Select Case True Case myAr(i, 2) = "合 計" Date_Serving_Meal = DateAdd("d", 1, Date_Serving_Meal) Case myAr(i, 2) = "《朝食》" Meal_Time = "朝食" Case myAr(i, 2) = "《昼食》" Meal_Time = "昼食" Case myAr(i, 2) = "《夕食》" Meal_Time = "夕食" Case myAr(i, 2) = "小 計" Case myAr(i, 2) = "^e12【献立" Case myAr(i, 2) Like "動蛋比" & "*" Case myAr(i, 2) = "・・・・・・・・・・" Case myAr(i, 2) = "料理名" Case myAr(i, 2) = "" Case Else Dish = myAr(i, 2) End Select Select Case True Case myAr(i, 3) = "・・・・・・・・・・・" Case myAr(i, 3) Like "EN比" & "*" Case myAr(i, 3) = "食品名" Case myAr(i, 3) Like "一覧表】 ^e11" & "*" Case myAr(i, 3) = "" Case Else RecAr(k, 0) = Date_Serving_Meal RecAr(k, 1) = Menu_Name RecAr(k, 2) = Meal_Time RecAr(k, 3) = Dish RecAr(k, 4) = myAr(i, 3) For j = 5 To 22 RecAr(k, j) = myAr(i, j - 1) Next j For j = 23 To 39 RecAr(k, j) = myAr(i + 1, j - 18) Next j For j = 40 To 51 RecAr(k, j) = myAr(i + 2, j - 35) Next j k = k + 1 End Select Next i Set mySht = Worksheets.Add With mySht .Name = Menu_Name .Range(Cells(1, 1), Cells(RecordNumber, 52)) = RecAr End With Set mySht = Nothing Set myRng = Nothing Erase RecAr End Sub Function Count_Record(ByRef Sh As Worksheet) As Long Dim mySht As Worksheet Dim myAr As Variant Dim i As Long Dim j As Long Dim k As Long Set mySht = Sh myAr = mySht.UsedRange j = 0 k = 0 For i = LBound(myAr) To UBound(myAr) Select Case True Case myAr(i, 2) = "合 計" Case myAr(i, 2) = "小 計" Case myAr(i, 2) = "《朝食》" Case myAr(i, 2) = "《昼食》" Case myAr(i, 2) = "《夕食》" Case myAr(i, 2) = "^e12【献立" Case myAr(i, 2) Like "動蛋比" & "*" Case myAr(i, 2) = "・・・・・・・・・・" Case myAr(i, 2) = "料理名" Case myAr(i, 2) = "" Case Else j = j + 1 End Select Select Case True Case myAr(i, 3) = "・・・・・・・・・・・" Case myAr(i, 3) Like "EN比" & "*" Case myAr(i, 3) = "食品名" Case myAr(i, 3) Like "一覧表】 ^e11" & "*" Case myAr(i, 3) = "" Case Else k = k + 1 End Select Next i Count_Record = k End Function