\n\u3063\u3066\u3053\u3068\u3092\u3084\u3063\u3066\u3044\u307e\u3057\u305f\u3002\u3067\u300c\u9045\u3044\u306e\u306f\u4f55\u51e6\u304b\uff1f\u300d\u3063\u3066\u306a\u611f\u3058\u306a\u306e\u3067\u3059\u304c\u3001\u666e\u901a\u306f3\u3092\u7591\u3046\u3068\u3053\u308d\u306a\u306e\u3067\u3059\u304c\u3001\u3044\u3048\u3044\u3048\u5b9f\u969b\u306f2\u3067\u3057\u305f\u3001\u3068\u3044\u3046\u30aa\u30c1\u3067\u3059\u3002
\nExcel \u3067\u5e33\u7968\u3092\u4f5c\u3063\u3066\u300c\u3044\u307e\u3044\u3061\u9045\u3044\u3093\u3060\u3088\u306a\u3041\u300d\u3063\u3066\u65b9\u306f\u3001\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002.NET \u304b\u3089\u64cd\u4f5c\u3059\u308b\u5834\u5408\u306f\u3001\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30a2\u30af\u30bb\u30b9\u3088\u308a\u3082\u3001Excel \u3078\u306e\u64cd\u4f5c\u306e\u307b\u3046\u304c\u30cd\u30c3\u30af\u306b\u306a\u308b\u3053\u3068\u304c\u591a\u3044\u306e\u3067\u3059\u3002\n<\/p>\n
\n\u25a0\u3044\u3061\u3044\u3061\u3001copy and paste \u3057\u3066\u3044\u308b\u306e\u304c\u99c4\u76ee\n<\/p>\n
\n\u6700\u521d\u306e\u30b3\u30fc\u30c9\u306f\u3001\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002\u5b9f\u306f Range \u306e\u3068\u3053\u308d\u3001\u3082\u3063\u3068\u99c4\u76ee\u306a\u306e\u3067\u3059\u304c\uff08column\u6bce\u306b\u30eb\u30fc\u30d7\u3057\u3066\u3044\u305f\u308a\uff09\u30b5\u30f3\u30d7\u30eb\u4f5c\u308b\u306e\u304c\u9762\u5012\u306a\u306e\u3067\u3001\u3061\u3087\u3063\u3068\u9ad8\u901f\u5316\u3002\n<\/p>\n
\r\nPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click\r\n\tDim xapp As New Microsoft.Office.Interop.Excel.Application\r\n\tDim path As String = System.IO.Directory.GetCurrentDirectory() + "\\" + "SampleTemplate.xlsx"\r\n\txapp.Workbooks.Open(path)\r\n\tDim sh As Worksheet = xapp.Workbooks(1).Sheets(1)\r\n\r\n\t' \u5148\u982d\u884c\u306f\u30bf\u30a4\u30c8\u30eb\u30012\u884c\u76ee\u304b\u3089\u30b3\u30d4\u30fc\u3059\u308b\r\n\tDim start As Date = Date.Now\r\n\tFor r = 3 To 1000\r\n\t\tDim src As Range = sh.Range(sh.Cells(2, 1), sh.Cells(2, 6))\r\n\t\tsrc.Copy()\r\n\t\tDim dest As Range = sh.Range(sh.Cells(r, 1), sh.Cells(r, 6))\r\n\t\tdest.PasteSpecial()\r\n\tNext\r\n\tTextBox1.Text = (Date.Now - start).ToString()\r\n\r\n\tpath = System.IO.Directory.GetCurrentDirectory() + "\\" + "range1.xlsx"\r\n\tSystem.IO.File.Delete(path)\r\n\txapp.Workbooks(1).SaveAs(path)\r\n\txapp.Quit()\r\n\tMessageBox.Show("\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u7d4c\u7531\u7248 \u4fdd\u5b58\u3057\u307e\u3057\u305f")\r\nEnd Sub\r\n<\/pre>\n\n\u3053\u308c\u3092\u5b9f\u884c\u3059\u308b\u3068\u30012\u5206\u5f37\u304b\u304b\u308a\u307e\u3059\u3002\u3048\u3048\u30c3!!! \u5358\u306b\u30b3\u30d4\u30fc\u3057\u3066\u3044\u308b\u3060\u3051\u306a\u306e\u306b…\u3068\u601d\u3046\u3067\u3057\u3087\u3046\u3002\n<\/p>\n
\n\u25a0copy \u3092 1\u56de\u3060\u3051\u306b\u3059\u308b\n<\/p>\n
\n\u66f8\u5f0f\u3068\u3057\u3066\u4f7f\u3063\u3066\u3044\u308b2\u884c\u76ee\u306f\u4e0d\u5909\u306a\u308f\u3051\u3067\u3059\u304b\u3089\u3001\u4f55\u5ea6\u3082 copy \u3059\u308b\u5fc5\u8981\u306f\u3042\u308a\u307e\u305b\u3093\u3002
\n\u306a\u306e\u3067\u3001copy \u3059\u308b\u3068\u3053\u308d\u30921\u56de\u306b\u3057\u3066\u3001\u5f8c\u306f\u4f55\u5ea6\u3082 paste \u3059\u308c\u3070 ok\u3002\n<\/p>\n
\r\nPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click\r\n\tDim xapp As New Microsoft.Office.Interop.Excel.Application\r\n\tDim path As String = System.IO.Directory.GetCurrentDirectory() + "\\" + "SampleTemplate.xlsx"\r\n\txapp.Workbooks.Open(path)\r\n\tDim sh As Worksheet = xapp.Workbooks(1).Sheets(1)\r\n\r\n\t' \u5148\u982d\u884c\u306f\u30bf\u30a4\u30c8\u30eb\u30012\u884c\u76ee\u304b\u3089\u30b3\u30d4\u30fc\u3059\u308b\r\n\tDim start As Date = Date.Now\r\n\tDim src As Range = sh.Range(sh.Cells(2, 1), sh.Cells(2, 6))\r\n\tsrc.Copy()\r\n\tFor r = 3 To 1000\r\n\t\tDim dest As Range = sh.Range(sh.Cells(r, 1), sh.Cells(r, 6))\r\n\t\tdest.PasteSpecial()\r\n\tNext\r\n\tTextBox2.Text = (Date.Now - start).ToString()\r\n\r\n\tpath = System.IO.Directory.GetCurrentDirectory() + "\\" + "range2.xlsx"\r\n\tSystem.IO.File.Delete(path)\r\n\txapp.Workbooks(1).SaveAs(path)\r\n\txapp.Quit()\r\n\tMessageBox.Show("Range\u7d4c\u7531\u7248 \u4fdd\u5b58\u3057\u307e\u3057\u305f")\r\nEnd Sub\r\n<\/pre>\n\n\u3053\u308c\u3092\u5b9f\u884c\u3059\u308b\u3068\u300113\u79d2\u306b\u306a\u308a\u307e\u3059\u3002\u3048\u3048\u300110\u500d\u65e9\u304f\u306a\u308a\u307e\u3057\u305f\u306d\u3002\n<\/p>\n
\n\u25a0paste\u3059\u308b\u6642\u306b range \u3067\u7bc4\u56f2\u3092\u6307\u5b9a\u3059\u308b\n<\/p>\n
\n\u5b9f\u306f\u3001\u30b3\u30d4\u30fc\u5148\u306f3\u884c\u304b\u30891000\u884c\u306e\u7bc4\u56f2\u306a\u306e\u3067\u3001Range \u3067\u6307\u5b9a\u3057\u3066\u4e00\u6c17\u306b\u30da\u30fc\u30b9\u30c8\u304c\u3067\u304d\u307e\u3059\u3002
\n\u3053\u308c\u306f\u3088\u304f Excel \u3067\u3084\u308b\u3068\u601d\u3046\u306e\u3067\u3059\u304c\u3001\u4f55\u6545\u304b\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u306b\u76f4\u3059\u3068\u3001\u306a\u304b\u306a\u304b\u601d\u3044\u4ed8\u304b\u306a\u3044\u3088\u3046\u3067\u3059\u3002\n<\/p>\n
\r\nPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click\r\n\tDim xapp As New Microsoft.Office.Interop.Excel.Application\r\n\tDim path As String = System.IO.Directory.GetCurrentDirectory() + "\\" + "SampleTemplate.xlsx"\r\n\txapp.Workbooks.Open(path)\r\n\tDim sh As Worksheet = xapp.Workbooks(1).Sheets(1)\r\n\r\n\t' \u5148\u982d\u884c\u306f\u30bf\u30a4\u30c8\u30eb\u30012\u884c\u76ee\u304b\u3089\u30b3\u30d4\u30fc\u3059\u308b\r\n\tDim start As Date = Date.Now\r\n\tDim src As Range = sh.Range(sh.Cells(2, 1), sh.Cells(2, 6))\r\n\tsrc.Copy()\r\n\tDim dest As Range = sh.Range(sh.Cells(3, 1), sh.Cells(1000, 6))\r\n\tdest.PasteSpecial()\r\n\tTextBox3.Text = (Date.Now - start).ToString()\r\n\r\n\tpath = System.IO.Directory.GetCurrentDirectory() + "\\" + "range3.xlsx"\r\n\tSystem.IO.File.Delete(path)\r\n\txapp.Workbooks(1).SaveAs(path)\r\n\txapp.Quit()\r\n\tMessageBox.Show("Range\u7d4c\u7531\u7248 \u4fdd\u5b58\u3057\u307e\u3057\u305f")\r\nEnd Sub\r\n<\/pre>\n\n\u3053\u308c\u3092\u5b9f\u884c\u3059\u308b\u3068\u30010.04\u79d2\u306b\u306a\u308a\u307e\u3059\u3002\u3048\u3048\u30011000\u500d\u3050\u3089\u3044\u65e9\u304f\u306a\u308a\u307e\u3059…\u3064\u30fc\u304b\u3001\u4e00\u77ac\u3067\u7d42\u308f\u308a\u307e\u3059\u3002\n<\/p>\n
\n\u25a0\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3092\u7d4c\u7531\u3055\u305b\u306a\u3044\u3002\n<\/p>\n
\n\u3053\u308c\u307e\u3067\u306f copy, paste \u3067\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3092\u4f7f\u3063\u3066\u3044\u305f\u308f\u3051\u3067\u3059\u304c\u3001\u5b9f\u306f copy \u306e\u5f15\u6570\u306b\u306f\u30b3\u30d4\u30fc\u5148\u306e range \u3092\u5165\u308c\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\n<\/p>\n
\nOffice TANAKA – Excel VBA\u8b1b\u5ea7\uff1a\u30bb\u30eb\u306e\u64cd\u4f5c[\u30bb\u30eb\u306e\u30b3\u30d4\u30fc]
\nhttp:\/\/officetanaka.net\/excel\/vba\/cell\/cell09.htm<\/a>\n<\/p>\n\n\u3053\u3046\u3059\u308b\u3068\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3092\u7d4c\u7531\u3057\u306a\u3044\u306e\u3067\u65e9\u304f\u306a\u308b\u3093\u3067\u3059\u306d\uff08\u591a\u5206\uff09\u3002\n<\/p>\n
\r\nPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click\r\n\tDim xapp As New Microsoft.Office.Interop.Excel.Application\r\n\tDim path As String = System.IO.Directory.GetCurrentDirectory() + "\\" + "SampleTemplate.xlsx"\r\n\txapp.Workbooks.Open(path)\r\n\tDim sh As Worksheet = xapp.Workbooks(1).Sheets(1)\r\n\r\n\t' \u5148\u982d\u884c\u306f\u30bf\u30a4\u30c8\u30eb\u30012\u884c\u76ee\u304b\u3089\u30b3\u30d4\u30fc\u3059\u308b\r\n\tDim start As Date = Date.Now\r\n\tDim src As Range = sh.Range(sh.Cells(2, 1), sh.Cells(2, 6))\r\n\tDim dest As Range = sh.Range(sh.Cells(3, 1), sh.Cells(1000, 6))\r\n\t' \u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u3092\u5a92\u4ecb\u3057\u306a\u3044\r\n\tsrc.Copy(dest)\r\n\tTextBox4.Text = (Date.Now - start).ToString()\r\n\r\n\tpath = System.IO.Directory.GetCurrentDirectory() + "\\" + "range4.xlsx"\r\n\tSystem.IO.File.Delete(path)\r\n\txapp.Workbooks(1).SaveAs(path)\r\n\txapp.Quit()\r\n\tMessageBox.Show("Range\u76f4\u63a5\u7248 \u4fdd\u5b58\u3057\u307e\u3057\u305f")\r\nEnd Sub\r\n<\/pre>\n\n\u3053\u308c\u3092\u5b9f\u884c\u3059\u308b\u3068\u30010.03\u79d2\u306b\u306a\u308b\u3002\u975e\u5e38\u306b\u9ad8\u901f\u5316\u3001\u3068\u8a00\u3044\u307e\u3059\u304b\u65e2\u306b\u8aa4\u5dee\u306e\u7bc4\u56f2\u3067\u3059\u306d\u3002
\n\u307e\u3041\u30011000\u884c\u3050\u3089\u3044\u3060\u3068\u5dee\u306f\u3064\u304b\u306a\u3044\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\n<\/p>\n
\n\u5b9f\u884c\u7d50\u679c\u306e\u753b\u50cf\u306a\u3069\u306f\u3053\u3061\u3089\u3002\n<\/p>\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
\u5b9f\u9a13\u30e1\u30e2\u3002 \u3068\u3042\u308b\u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u3067\u3001Excel \u306e\u66f8\u5f0f\u30b3\u30d4\u30fc\u306e\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u304c\u826f\u304f\u306a\u3044\u3002\u306e\u3067\u8abf\u67fb\u3002 \u3068\u3042\u308b\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u3067\u306f\u3001 Excel \u306e\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u3044\u308b\u3002 \u66f8\u5f0f\u3092\u63c3\u3048\u308b\u305f\u3081\u306b\u30012\u884c\u76ee\u304b\u30891000\u884c\u307e\u3067\u3092 … \u7d9a\u304d\u3092\u8aad\u3080