先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。
複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。
Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
= myRng.Columns(i).Value
Next
End Sub
※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。
よろしくお願いします。
先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。
複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。
Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
= myRng.Columns(i).Value
Next
End Sub
※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。
よろしくお願いします。
先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。
複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。
Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
= myRng.Columns(i).Value
Next
End Sub
※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。
よろしくお願いします。
先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。
複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。
Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
= myRng.Columns(i).Value
Next
End Sub
※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。
よろしくお願いします。
先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。
複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。
Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
= myRng.Columns(i).Value
Next
End Sub
※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。
よろしくお願いします。
先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。
複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。
Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
= myRng.Columns(i).Value
Next
End Sub
※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。
よろしくお願いします。
よろしくお願いします。
セル（Ｈ6）を起点にデーターのある部分に罫線を引きたいのですが
計算式（関数）が、入っているセルにも罫線が引かれます。
計算式（関数）は入っているが、データーが入っていない場合は罫線を引かない
方法を教えてください。
現況の記述です。
Sub 罫線()
With Range("H6").CurrentRegion.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
With .Item(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With .Item(xlInsideVertical)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End With
End Sub
よろしくお願いします。
セル（Ｈ6）を起点にデーターのある部分に罫線を引きたいのですが
計算式（関数）が、入っているセルにも罫線が引かれます。
計算式（関数）は入っているが、データーが入っていない場合は罫線を引かない
方法を教えてください。
現況の記述です。
Sub 罫線()
With Range("H6").CurrentRegion.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
With .Item(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With .Item(xlInsideVertical)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End With
End Sub
よろしくお願いします。
セル（Ｈ6）を起点にデーターのある部分に罫線を引きたいのですが
計算式（関数）が、入っているセルにも罫線が引かれます。
計算式（関数）は入っているが、データーが入っていない場合は罫線を引かない
方法を教えてください。
現況の記述です。
Sub 罫線()
With Range("H6").CurrentRegion.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
With .Item(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With .Item(xlInsideVertical)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End With
End Sub
よろしくお願いします。
セル（Ｈ6）を起点にデーターのある部分に罫線を引きたいのですが
計算式（関数）が、入っているセルにも罫線が引かれます。
計算式（関数）は入っているが、データーが入っていない場合は罫線を引かない
方法を教えてください。
現況の記述です。
Sub 罫線()
With Range("H6").CurrentRegion.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
With .Item(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With .Item(xlInsideVertical)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End With
End Sub
よろしくお願いします。
セル（Ｈ6）を起点にデーターのある部分に罫線を引きたいのですが
計算式（関数）が、入っているセルにも罫線が引かれます。
計算式（関数）は入っているが、データーが入っていない場合は罫線を引かない
方法を教えてください。
現況の記述です。
Sub 罫線()
With Range("H6").CurrentRegion.Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
With .Item(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With .Item(xlInsideVertical)
.LineStyle = xlDash
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End With
End Sub
