彼への束縛？
開いていただいてありがとうございます！
私は女子大に通う大学３年の女です。
私には４年半付き合っている彼がいます。
彼も大学３年で別々の大学に通っているんですが、飲
み会やサークルなどの行事がたくさんあります(>_<)
行かないでほしいとは思ってないのですが、私が女子大ということもあり毎回不安でしょうがありません。
彼の学部は男女比率が２：８で、女の子の数がとても多いところです。
飲み会前にメールをくれるんですが、そっけなく返してしまいます（；＿；）
そして彼は最近絶対吸わないと約束していたタバコ、競馬、麻雀などを始めるようになりました。
なんか彼が変わってしまったみたいで不安です。
大学生なので付き合いがあるのはわかります(>_<)
でも私の存在ってなんなんだろう。と思ってしまいます。
最近飲み会も増えて、毎回そっけなく返事をしてしまう自分が嫌です(>_<)
優しくいってらっしゃい。楽しんできてね。と言えるようになりたいです
飲み会が終わるとメールくれるし、彼なりに気づかってくれています。
週１回は会える日を作っていて、ふてくされた感じで会ってしまう自分がほんとに嫌で幼稚で恥ずかしいです。
私が依存しすぎなのはわかっています。このままだと彼の負担が大きくなってしまいますよね。
私ももっと視野を広げたいなと思い、資格の勉強をしたりバイトを増やしてみたりしています(>_<)
でもやっぱり彼の生活が気になってしまうんです。
みなさんの中で同じようなお気持ちの方いらっしゃいますか？
それと乗り越えられる方法はなんですか？
（この記事は「Yahoo知恵袋」より引用させて頂きました）
≪大井競馬出来事≫ 【競走除外】▽5R…スマートラック(右肘部挫傷) 【競走中止】▽10R…トウカイキアーロ(最後の直線で右肩ハ行)つづき･･･
(引用元：この記事の著作権は、スポーツニッポンに帰属します。)
大井競馬出来事大阪府のホテル旅館予約－口コミ優良宿泊先ならここで探せ！Excelマクロ 繰り返し?の設定方法を教えて下さ
BetMasterという競馬ソフトに記述されている
「TXT\2」のデータを抽出し、Sheets("出馬表集計")に貼り付け、
「TXT\1」のデータを抽出し、Sheets("結果集計")に貼り付ける
以下のようなマクロを組んでいます。1日終わるごとにTXT\2とTXT\1を作成してこの集計をしていたのですが、約1年間サボってしまい100回近く、このマクロを作動させなければならなくなりました。
そこで、TXT\1～100まで作成して、TXT\2とTXT\1の貼り付けが終わったら、「TXT\4とTXT\3」、「TXT\6とTXT\5」、「TXT\8とTXT\7」...............と「TXT\100とTXT\99」まで繰り返し抽出と貼り付けを行うようにしたいのですがどうしたらよいでしょうか。
問題は、50回繰り返すことと、2回目以降は前回終了の次の行に貼り付けるという点です。
よろしくお願い致します。
'BetMasterから出馬表データの取り込み
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\BetMaster\TXT\2.", Destination:=Range("A1"))
.Name = "1."
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
'Sheets("出馬表集計")に貼り付け
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("出馬表集計").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
'BetMasterから結果データの取り込み
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\BetMaster\TXT\1.", Destination:=Range("A1"))
.Name = "1."
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
'Sheets("結果集計")に貼り付け
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("結果集計").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
（この記事は「教えてgoo!」より引用させて頂きました。）
２歳王者アルフレードは栗東から駆けつけた初コンビの武豊が騎乗して坂路で併せ馬。エチゴイチエ（４歳１６００万）を１馬身先行させ、残り２Ｆから一気に加速。最後は手綱を抑えたまま併入した。見た目には、それほど速く感じられないのに１Ｆは１１秒５。「乗り味というか、走る馬に独特の動き。さすがにいい馬だね」。数々の名馬にまたがってきた武豊が最高のジャッジを与えた。
騎乗する前に抱いていたイメージとは全く違ったという。「大人びたタイプと思っていたが、やんちゃで元気がいい。短い距離の競馬ばかりしているし一番注意するのは折り合い」と課題を挙げた。ただ、本質的な距離適性に関しては「走りは全然、短距離馬っぽくない。上から見た感じは（父の）シンボリクリスエスに似ている」とも指摘。その父は青葉賞Ｖから臨んだダービーで２着。初の芝２４００メートルでも好走の期待が高まってきた。
(この記事は競馬（スポニチアネックス）から引用させて頂きました)